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4.0 


SECTION 4 - PROGRAM LISTING 


INTRODUCTION 


4.0 


This section contains the side-by-side listing of the source and object programs for the 
1219B diagnostic programs, An example of a listing entry with an explanatory description 


is shown below. 


002135 


“a” 


SEQUENCE 
NUMBER 


PLUM STRAU * TRAP CK + - NET 02724 
LABEL MNEMONIC NOTES ADDRESS 
CODE 
INSTRUCTION 
AAT. A TT 
STATEMENT 


The listings are arranged as follows: 


1) EZLOAD, pages 4-3 through 4-8, 

2) EASIER, pages 4-9 through 4-12, 

3) CONTBASI, pages 4-13 through 4-94. 
4) MEDIA, pages 4-95 through 4-214, 

5) IOTA, pages 4-215 through 4-370. 


46 3016 
“eee, ee” 


ABSOLUTE 
INSTRUC TION 
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MEM. STRG. USED 00145 


E-P 


00240 THRU 00404 
LOK INSTR L1ID LO 
0 EZLOAD PROG*ABICHT*5JULY1967 
00240 50 5600 1 EZLOAD STOP*00 | | 
2 REMARK*IF THIS STOP OCCURS» IT INDICATES THAT A BIT@- 
3 REMARK*OR BITS OF BITS O THRU 5S HAVE PICKED UP. 
00241 50 5677 uy STOP*77 | | 
5 REMARK*IF ALL STOP LIGHTS ARE LITe ALL IS OKe 
6 REMARK*BITS CORRESPONDING TO STOP LIGHTS NOT= 
7 REMARK*LIT WERE DROPPED. 
00242 44 0406 lo STRAL*0406 STORE PARAMETERS 
00243 10 0252 11 ENTAU*ZEROS - ALL ZEROS TO AU 
00244 60 0246 12 JPAUZ*LOK+2 
00245 50 5640 13 . STOP*40 | 
14 REMARK*BITS SET IN AU WERE PICKED UP. 
15 REMARK*IF AU IS CLEAREDse JPAUZ INSTRUCTION (60) IS BADe 
00246 10 0253 16 ENTAU*WONES 4 ALL ONES TO AU 
00247 50 6200 £17 CPAU* 
00250 60 0254 20 JPAUZ*LOKt4 
00251 50 5640 21 STOP*40 | 
22 REMARK*IF AU EQUALS 777777+ THEN CPAU INSTRUCTIQN= 
23 REMARK*(50 62)IS BAD. 
24 REMARK*IF JUST SOME BITS ARE SET IN AUr THEN EITHER@ 
25 REMARK*THOSE BITS wERE DROPPED IN MEMORY OR THE= 
26 REMARK*COMPLEMENT DOES NOT WORK FOR THOSE BITS. 
00252 00 0000 27 ZEROS O*xO ALL ZEROS CONSTANT 
00253 77 7777 30 WONES 77*7777 ALL ONES CONSTANT 
00254 76 0256 31 RUP*STRAD VERIFY FUNCTION 76 
00255 50 5640 32 STOP*40 
33 — - REMARK*RUP INSTRUCTION (76) DOES NOT JUMP. 
00256 00 O000 34 STRAD 0*0 RUP ENTRANCE ADDRESS 


v-¥ 


00257 
00260 


00261 
00262 
00263 
00264 
00265 
00266 


00267 
00270 
00271 
00272 
00273 
00274 


00275 
00276 
00277 
00300 


00501 
00502 


00503 
00304 


55 
90 


00 
ay 
46 
10 
60 
50 


70 
02 
63 
le 


50 


40 
le 
61 
90 


10 
90 


56 
15 


0261 
5640 


U262 
0252 
V252 
0252 
0267 
9649 


0255 
0256 
0301 
0252 
0275 
5640 


0256 
0256 
0503 
2640 


0256 
9640 


0144 
0240 


35 


56 
37 
40 
41 
42 
43 
uy 
45 


46 
47 
50 
o1 
92 
33 
34 
55 


96 
97 
60 
61 
62 
63 
64 
65 


66 
67 
70 
71 
72 
73 
74 
75 


76 
77 
100 


REFAD 


REFER 


CKSUM 


PAGE 002 
TUP*REFAD VERIFY FUNCTION 55 


STOP*40 
REMARK*IJUP INSTRUCTION (55) 00ES NOT JUMP. 


O*REFAD+1 IUP REFERAL TO NEXT INSTRUCTION 
STRAL*ZEROS SET ZEROS TO SOMETHING 
STRAU*ZEROS CLEAR ZEROS 

ENTAU*ZEROS DISPLAY ZEROS 

JPAUZ#LOK+2 VERIFY FUNCTION 46 

STOP «40 


REMARK*STRAU INSTRUCTION (46)D0ES NOT STORE. 


F RJP 
ENTALK*WONES+2 SET AL TO P+1 ADDRESS 0 
CMAL*STRAD COMPARE AGAINST P+#1 OF RUP 
JPNOT*REFER JP IF NO COMPARE 

ENTAL*®ZERQS CLEAR AL 

JPALZ*LOK+2 VERIFY FUNCTIONS 12 AND 61 
STOP*40 


REMARK*IF AL NOT EQUAL TO ZERQe THE ENTAL INSTRUCTION] 


REMARK*(12)D0ES NOT CHANGE AL. 
REMARK*IF AL EQUALS ZERN»+ THE JPALZ INSTRUCTION- 
REMARK* (61) D0ES NOT SENSE THAT AL EQUALS ZERO. 


CL*STRAD CLEAR ENTRANCE ADNRESS 

ein scree VERIFY FUNCTION 40 

JPALZ*CKSUM JUMP IF GOOD AND BEGIN CHECKSUM 
STOP*40 


REMARK*CL INSTRUCTION (40)DOES NOT CLEAR THE ADORESS. 


ENTAU*STRAD 
STOP*40 
REMARK*AU EQUALS PROBABLE STRAD P41. 

REMARK*AL EQUALS WHAT AU SHOULD BE. 

REMARK*EITHER THE RJUP INSTRUCTION (76)D0ES NOT PUT= 
REMARK*P+1 AT THE ENTRANCE ADDRESS OR@ 

REMARK*THE CMAL INSTRUCTION (92)D0ES NOT COMPARE OR- 
REMARK*THE JPNOT INSTRUCTION (63) JUMPS EVEN THOUGH= 


PROBABLE P+1 TO AU 


REMARK*THE COMPARE IS EQUAL. 
ENTBK*0144 


SET B TO AREA LOADER LENGTH © 
ADDALB*EZLOAD 


COMPUTE CHECKSUM 


—— eer 
- 
ee 


S-? 


00305 
00306 
00307 


00310 
00511 
00312 
00313 
00514 
00515 
00516 
00317 


003520 
00321 
00322 
00523 
00324 
00325 
00526 
00327 


00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 


00340 


73 
63 


12 
02 
61 
12 
4 
12 
34 
12 


44 
12 
44 
76 
76 
45 
14 
44 


96 
34 
76 
02 
63 
50 
25 
10 


90 


0504 
0405 
0337 


0213 
0542 
0317 
0213 
0376 
0216 
0522 
0214 


0376 
0217 
0401 
0341 
0563 
0000 
0405 
0405 


0562 
0524 
0563 
0405 
0337 
3400 
0561 
0405 


2640 


101 
102 
103 


104 
105 
106 
107 
110 
111 
1le 
113 


114 
115 
116 
117 
120 
121 
l2e 
125 


124 
125 
126 
127 
130 
131 
132 
135 


134 
135 
136 
137 
140 
141 
142 
143 


144 


T3e2 


T31 


PROAD 


CKSER 


BJP*LOK~1 
CMAL*LAST 
JPNOT*CKSER 


ENTAL*0213 
CMAL*CLEAR 
JPEQ*T31 
ENTAL*0213 
STRAL*RADFt1 
ENTAL*0216 
JP*LOK+4 
ENTAL*0214 


STRAL*RADF +1 
ENTAL*0217 
STRAL*RADF +4 
RJP*SETAD 
RUP*ASSMS 
STRALB*0 
ADDAL*LAST 
STRAL*LAST 


BSK*TO 
JP*PROAD 
RJP*ASSMS 
CMAL*LAST 
JPNOT*CKSER 
SIL*0 
IJP*FROM 
ENTAU*LAST 


STOP *40 
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CONTINUE IF NOT FINISHED 
COMPARE CHECKSUMS 
JUMP IF BAD 


BOOTSTRAP ADDRESS 213 TO AL 
EQUAL TO 700000? 

IF SO» JUMP TO 1231//12/1532 
BOOTSTRAP ADDRESS 213 TO AL 
SET LOADER READ INSTRUCTION 
BOOTSTRAP ADDRESS 216 TO AL 


BOOTSTRAP ADDRESS 214 TO AL 


SET LOADER READ INSTRUCTION 
BOOTSTRAP ADDRESS 217 TO AL 
SET SKIP ACTIVE INSTRUCTION 
GO READ ADDRESSES 

GO ASSEMBLE ONE INSTRUCTION 
STORE PROGRAM 

ADD TO CHECKSUM 

SAVE CHECKSUM 


ALL LOADED YET 

NO» CONTINUE LOAD 

READ CHECKSUM FROM TAPE 
COMPARE CHECKSUM 

JUMP IF BAD 

SET INTERRUPT LOCKOUT 

JUMP TO FIRST TEST ADDRESS 
CHECKSUM TO AU 


REMARK*THE COMPUTED CHECKSUM AND THE CHECKSUM= 
REMARK*FRAME FROM TAPE 90 NOT COMPARE. 


REMARK*IF 
REMARK*AU 
REMARK *AL. 
REMARK *IF 
REMARK *AL 


REMARK *AU 


ONLY THE 
CONTAINS 
CONTAINS 
BOTH THE 
CONTAINS 


CONTAINS 


DER HAS LOADED+ THEN- 
THE CHECKSUM FRAME FROM TAPE AND- 
THE CHECKSUM COMPUTED OF THE LOADER. 
LOADER AND PROGRAM HAVE LOADED» THEN~ 
THE CHECKSUM FRAME FROM TAPE AND- 


THE CHECKSUM COMPUTED OF THE PROGRAM. 


9-¥% 


00341 
00542 
00343 
JOS44 
003545 


00346 
00547 
003550 
00351 
00552 
003553 
00554 
00355 


00356 
00357 
00360 
00361 
00362 
00363 
00364 
00565 


00566 
00367 
00570 
00371 
00572 
003573 
00374 
00375 


00376 
00377 
00400 
00401 
0n402 
00403 
00404 


00 
70 
10 
76 
ol 


76 
20 
50 
76 
50 
76 
46 
Se 


4y 
40 
95 
00 
00 
00 
70 
ran 


70 
20 
76 


34 
95 
00 
UO 


20 
00 
00 
50 
34 
o1 
55 


0000 


0000. 


0252 
0375 
0344 


0363 
4717 
4611 
0375 
4606 
0375 
0361 
0361 


0362 
V405 
0341 
0000 
0000 
0000 
0002 
0374 


0000 
4606 
0375 
0374 
0367 
0563 
0000 
0000 


1100 
0002 
0U02 
2100 
0401 
0002 
0375 


145 
146 
147 
150 
151 


152 
153 
154 
155 
156 
157 
160 
161 


162 
163 
164 
165 
166 
167 
170 
171 


172 
173 
174 
175 
176 
177 
200 
201 


202 
203 
204 
205 
206 
207 
210 
ell 


SETAD 
CLEAR 


FROM 


ASSM3 


OEX 
RADF 


0x0 
ENTALK*0 
ENTAY*ZEROS 
RUIP*RADF 
JPALZ*LOK=1 


RJP*ASSM3 
LSHA*17 
LSHAL*11 
RJP*RADF 
LSHAL*6 
RJP*RADF 
STRAU*FROM 
ENTB*FROM 


STRAL*TO 
CL¥LAST 
IJP*SETAD 
0*0 

0*0 

o*0 
ENTALK*2 
STRAL*DEX 


ENTALK*0O 
LSHAL*6 
RJP*RADF 
ISK*DEX 
JP*LOK=3 
IJP*ASSM3 
0*0 

0*0 


IN*0 
O*DATA 
O*DATA 
SKPTIN*O 
JP*LOK=1 
SLSET*DATA 
I UP*RADF 
ENDATA* 
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ENTRANCE 


CLEAR AL 


CLEAR AU 
GO READ THE LEADER 
CONTINUE IF FRAME IS ZERO 


GO READ BEGINNING ADDRESS 
BEGIN TO AU 

RESTORE AL 

READ A FRAME 

SHIFT ADDRESS 

READ A FRAME 

BEGIN TO JUMP ADDRESS 
BEGIN TO B 


SAVE FINAL 

CLEAR CHECKSUM ADDRESS 
EXIT 

BEGIN ADDRESS 

FINAL ADDRESS 

ENTRANCE 

SET INDEX 

STORE INDEX 


CLEAR AL 

SHIFT wOQRD 

READ A FRAME 

IS woRD COMPLETE 
NO*e CONTINUE 
YESe EXIT 


INDEX COUNT 


ENTRANCE 


INPUT ONE FRAME 

AT ADDRESS DATA 

AT ADDRESS DATA 

SKIP ON INPUT INACTIVE 
TEST ACTIVE 

SET DATA TO AL 

EXIT 


8-/L-F 


ASSM3 
DEX 


RAUF 
TO 


00563 


00374 


00575 
00562 


CKSER 


EZLOAD 


REFAD 
T31 


00337 


00240 


ood26l 
00317 


CKSUM 
FROM 


REFER 
T32 


‘al 


LABELS AND ADnRESSES 


00303 


00361 


N0301 
003135 


CLEAR 
LAST 


SETAD 
WONES 


003542 
00405 


00341 


00253 


PAGE 


DATA 
PROAD 


STRAD 
ZEROS 


005 


00002 
00324 


00256 
00252 
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MEMes STRGe USED 00145 
00240 THRU 00404 


6- 


LOK INSTR L1IO LO 

0 EASIER PROGeABICHT*24JULY1967 | 
00240 34 O301 1 EASIER JP*CKSUM=2 
00241 O00 QOD 2 RESERV*37 RESERVE ADDRESSES 241-277 
00300 00 0000 3 ZEROS 0*0 ALL ZEROS CONSTINT 
00301 10 0300 4 ENTAU*ZEROS CLEAR AU 
00302 70 o000 5 ENTALK*0 CLEAR AL 
00303 36 0144 6 CKSUM ENTBK*0144 SET B TO AREA LOADER LENGTH 
00304 15 o24ug 7 ADDALB*EASIER COMPUTE CHECKSUM 
00305 73 u304u 10 BJUP*LOK~1 CONTINUE IF NOT FINISHED 
00506 02 0405 11 CMAL*LAST COMPARE CHECKSUMS 
00507 63 0337 12 JPNOT*CKSER JUMP IF BAD 
003510 12 0213 13 ENTAL*0213 BOOTSTRAP ADDRESS 213 TO AL 
00511 02 03402 14 CMAL*CLEAR EQUAL TO 700000? 
00512 61 0317 i5 JPEQ*T31 IF SO* JUMP TO 1232//12/1532 
003513 12 0213 16 T32 ENTAL*0213 BOOTSTRAP ADDRESS 213 TO AL 
00314 44 Q376 17 STRAL#*RADFH+1 SET LOADER READ INSTRUCTION 
00415 12 0216 20 ENTAL*0216 BOOTSTRAP ADDRESS 216 TO AL 
00516 34 0Q322 21 JP*LOK+4 
00317 Il2 vely 22 T31 ENTAL*0214 BOOTSTRAP ADDRESS 214 TO AL 
00320 44 0376 23 STRAL*RADFt+1 SET LOADER READ INSTRUCTION 
00521 12 0217 24 ENTAL*0217 BOOTSTRAP ADDRESS 217 TO AL 
00322 44 O4Ol 25 STRAL*RADF +4 SET SKIP ACTIVE INSTRUCTION 
00323 76 0341 26 RIP*SETAD GO READ ADDRESSES 
00324 76 J363 27 PROQAD RUP*ASSM3 GO ASSEMBLE ONE INSTRUCTION 
00325 45 v000 30 STRALB*0 STORE PROGRAM 
003526 14 O405 31 ADDAL*LAST ADD TO CHECKSUM 
00527 4& O4GO5 32 STRAL*LAST SAVE CHECKSUM 
V0530 6 0362 33 BSK*TO ALL LOADED YET 
VO331 34 9324 34 JP*PROAD Noe CONTINUE LOAD 


OT-+ 


00332 


00533 
00534 
00535 
00536 
00537 
00540 


O03541 
00342 


VOS4S © 


00344 
00545 
00546 
00547 
00550 
00551 
00552 


00353 
00554 
00355 
003456 
00357 
003560 
00561 
00562 


00363 
00564 


00365 _— 


76 


02 
65 


25 
10 
30 


0363 


0405 
0537 
3400 
0561 
0405 
S640 


0000 
0000 


0500 
0375 
O544 
0563 
4717 
4611 
0375 
4606 


0375 
0561 
0561 
0362 
0405 
0541 
0000 
00006 


0000 
UCO02 
UV374 


CKSER 


SETAD 
CLEAR 


FROM 
TO 


ASSM3 


RJP*ASSM3 


CMAL*LAST 
JPNOT*CKSER 
SIL*9) 
IJP*FROM 
ENTAU*LAST 
STOP*40 
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READ CHECKSUM FROM TAPE 


COMPARE CHECKSUM 

JUMP IF BAD 

SET INTERRUPT LOCKOUT 

JUMP TO FIRST TEST ADDRESS 
CHECKSUM TO AU 

ERROR STOP 1-Hel 


REMARK*THE COMPUTED CHECKSUM AND THE CHECKSUM= 
REMARK*FRAME FROM TAPE DO NOT COMPARE. 


REMARK*IF ONLY THE LOADER HAS LOADED» THEN-= 

REMARK*AU CONTAINS THE CHECKSUM FRAME FROM TAPE AND= 
REMARK*AL CONTAINS THE CHECKSUM COMPUTED OF THE LOADER. 
REMARK*IF BOTH THE LOADER AND PROGRAM HAVE LOADED? THEN] 
REMARK*AL CONTAINS THE CHECKSUM FRAME .FROM TAPE AND 
REMARK*AU CONTAINS THE CHECKSUM COMPUTED OF THE PROGRAM. 


0*0 
ENTALK*0O 


ENTAU*ZEROS 
RJP*RADF 
JPALZ*LOK=1 
RJP*ASSM3 
LSHA*17 
LSHAL*11 
RJP*RADF 
LSHAL*6 


RUP*RADF 
STRAUXFROM 
ENTS*FROM 
STRAL*TO 
CL¥*LAST 
IUJP*SETAD 
0*0 

0*0 


0*0 
ENTALK*2 
STRAL*DEX 


ENTRANCE 
CLEAR AL 


CLEAR AU 

GO READ THE LEADER 
CONTINUE IF FRAME IS ZERO 
GO READ BEGINNING ADDRESS 
BEGIN TO AU 

RESTORE AL 

READ A FRAME 

SHIFT ADDRESS 


READ A FRAME 

BEGIN TO JUMP ADDRESS 
BEGIN TO B 

SAVE FINAL 

CLEAR CHECKSUM ADDRESS 
EXIT 

BEGIN ADDRESS 

FINAL ADDRESS 


ENTRANCE 
SET INDEX 
STORE INDEX 


1-7 


00366 
00567 
00370 


00571 
00372 
00573 
00374 
00375 
00376 
00377 
00400 


00401 
00402 
00403 
00404 


70 
20 
76 


97 
34 
25 
00 
00 
90 
00 
00 


590 
S34 
S51 
25 


0000 
4606 
0575 


0374 
0567 
0563 
0000 
0000 
1100 
0002 
0002 


2100 
O4O1 
0002 
0375 


lol 
102 
103 


104 
105 
106 
107 
110 
lil 
112 
113 


114 
115 
116 
117 
120 


DEX 
RADF 


ENTALK*0 
LSHAL*6 
RJP*RADF 


ISK*DEX 
JP*LOK=<$3 
TUP*ASSM3 
0*0 

0*0 

IN*0 
O*DATA 
O*DATA 


SKPTIN*0 
JP*LOK=1 
SLSET*DATA 
ITUP*RADF 
ENDATA* 


PAGE 003 


CLEAR AL 


SHIFT wORN 
READ A FRAME 


TIS wORD COMPLETE 
NO»e CONTINUE 
YES» EXIT 

INDEX COUNT 
ENTRANCE 

INPUT ONE FRAME 
AT ADDRESS DATA 
AT ADDRESS DATA 


SKIP ON INPUT INACTIVE 
TEST ACTIVE 

SET DATA INTO AL 

EXIT 


eI-p 


ASSM3 
DEX 
RAUF 
ZEROS 


QU363 
00374 
00575 
J0300 


CKSER 
EASIER 
SETAD 


00337 
00240 
00341 


LABELS AND ADDRESSES 


CKSUM 
FROM 
TO 


00303 
00361 
00362 


CLEAR 
LAST 
T31 


00342 
00405 
00317 


PAGE 


DATA 
PROAD 
T32 


004 


00002 
00324 
00313 


€l-F 


SEQNO 


000000 
000001 
000002 


000003 
VO0004 
000005 
000006 
000007 
000010 
000011 
000012 


000013 
000014 
000015 
000016 
000017 
000020 
000021 
VO0022 


000023 
000024 
000025 
000026 
0000e7 
000030 
000031 
000032 


000033 
V00034 


LABEL 


CONTBASI 
CONTBASI 
ADR 


CONTBASI 
CONTBASI 


CONTBASI 


-ENTAL*WEEDOUTS 


STATEMENT 


CONTR¥*¥FRENCH*20MARCH1968 
ALLOC*FRENCH*20MARCH1968 
000000 


0706 

PROG*FRENCH* 20MARCH1968 

P SEG 

SIL*Q0 SIL 

STOP*20 PROG STOP 4 MEANS G00D MT LOAD 


SKP*0Q2 SET SKIP KEY 1 
JP*LOKt2) TO BYPASS 
JP*FALCONtS FAULT TEST 


CL*STAHL CL CONTENTS 
ENTAL*END1 AL EQ 505640 
STRAL*0001 

STRAL*0002 

STRAL*0004 

STRAL*0010 

STRAL*O11 

STRAL*012 


STRAL*013 

STRAL*O14 

STRAL*015 

STRAL*016 

STRAL*0017 

ENTAL*COMBACK AL EQ S4YCHEZ=3 
STRAL*0000 STORE JP IN FLT ENT 
ENTAL*WEEDOQUT2 AL EQ 34CHEZ+1 


STRAL*CHEZ 
AL EQ 34CHEZ2 


PAGE 


ADDRESS 


o0000n 
00706 
00707 
00710 
00711 
00712 


00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 


00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 


00733 
00734 


0001 
INSTRUCT 
5047 00 
5034 00 
5056 20 
5050 02 
34 0713 
34 1003 
GQ 4632 
12 4350 
a4 60001 
44 0002 
44 0004 
44 0010 
44 oOo11 
44 O0Ol2 
44 0013 
44 Q014 
44 0015 
44 0016 
44 0917 
12 4666 
4G 0900 
12 4667 
4&4 0750 


12 4670 


vI-F 


SEQNO | 


000035 
000036 
000037 
000040 
000041 


000042 
000045 
000044 
000045 
000046 
000047 
000050 
000051 


000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 


000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 


000072 
000075 


LABEL 


CHEZ 


CHE2Z1 


STATEMENT 


STRAL*CHEZ21 
000000 
ENTAL*ZEROUNE 
STRAL*STAHL 
ENTAL*WEEDOUT 


STRAL*CHEZ 
ENTAL*WEEDOUTSY 
STRAL*CHEZ1 
ENTAL*COMBACK1 
STRAL*0000 
010000 

000000 
ENTAL*ZERQDEUX 


STRAL*STAHL 
ENTAL*®WEEDOUTS 
STRAL*CHEZ1 
JP*CHEZL&3 


ENTAL*ZEROTROIS 


STRAL*STAHL 
ENTAL*WEEDOUTL 
STRAL*CHEZ1 


ENTAL*COMBACK2 
STRAL*0000 
777777 

000000 
ENTAL*ZEROCING 
STRAL*STAHL 
JP¥*SOFINDS 
ENTAL*ZEROSIX 


STRAL*STAHL 
JP*SOFINDS 


FORCE FAULT@CHK TRANS 
FAULT 00 BAD 


AL EQ 34CHEZ+6 


AL EQ 34CHEZ1+1 

AL EQ 34 CHEZ1=-3 

FORCE FAULT@CHK 01 TRANS 
FAULT 01 BAD 


FAULTS 00701 BAD 
AL EQ 34CHEZ1+7 


AL EQ 34CHEZ2 
FORCE FAULT@*CHK 77 TRANS 


FAULTS 00°77 BAD 


FAULTS 01-77 BAD 


PAGE 


ADDRESS 


00735 
00736 
00737 
00740 
00741 


00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 


00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 


00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 


00772 
00773 


0002 


INSTRUCT 


4G 0765 

000000 
12 5032 
GG 4632 
12 4675 


44 0750 
12 4671 
44 0765 
12 4672 
GG 0000 

0100980 

000000 
12 4466 


44 4632 
12 4673 
44 0765 
34 0762 
12 5146 
GG = =4&632 
12 4674 
4G 0765 


12 4676 
4G 0090 

777777 

000000 
12 4433 
4G 4632 
34 0776 
12 5050 


G4 4632 
34 0776 


CcI-Pf 


SEQNO 


000074 
000075 
000076 
000077 
000100 


000101 
000102 
000105 
000104 
000105 
000106 
000107 
000110 


000111 
000112 
000113 
000114 
000115 
000116 
000117 
000120 


000121 
000122 
000125 
000124 
000125 
000126 
000127 
000130 


000131 
000132 


LABEL 


SOFINDS 
CHE Z2 
FALCON 


eHeHH H & 


i 


* 


x 


* 
+ 


FLTISOL 


RJUP*FLTISOL 
ENTAL*STAHL 
STOP*40 
ENTAL*STAHL 
JP*FALCON 


SIL*00 


STOP*40 


SKP «10 


JP*SKIPSTOP 


SXL*00 


JP*PRELIM 


0*0 


TEST SPECeMONINT* INT FF 
DISPLAY FLT FLGS 


ERROR STOP 


CHK FAULT=AL SHOULD BE 900000- 
AND FAULT LITE ON@=IF NOT@ERROR 
TO CONTINUE TES=DEPRESS MC 
SWITCH TO REMOVE FAULT LITE-NEXT 


PUT DISC 
INCREMENT P BY 1 BY SETTING BIT 0 


THEN SET 


ADV P SwITCH IN UP POS- 


BIT 1 OF P AND 


REMOVE DISC ADV P 
TEST WILL CONTINUE AS SELECTED 
ERROR STOP=DUE TO DISC ADV P 


OMIT SKIPSTOP 


SET SKIP KEY 3 TO OMIT SKIPSTOP 
EXECUTE SKIP STOP TEST 


THE FOLLOWING IS A MANUAL CHECK 


OF ALL KEY SKIPS AND STOPS-STOP 
4O INDICATES ERROR WITH K VALUE 


REMARK*RTC DISABLE SW MUST BE OFF TO 
REMARK*PROPERLY USE THIS ISOLATION ROUTINE 


SX 


CL*SPINTE 
ENTAL*RTCOK 


- STRAL*O12 
ENTAL*ENDIP2 


DISABLE EIRS 
CLR ERROR FLAG LOC 
RETURN AT 


RTC MON INT ENT ADDR 


RTC MON IS 


PAGE 


ADDRESS 


00774 
00775 
00776 
00777 
01000 


01001 


01002 
01003 
01004 
01005 
01006 


01007 


01010 
01011 
01012 


01013 
01014 


0003 
INSTRUCT 
76 1007 
12 4632 
5056 40 
12 4632 
34 1000 
5034 0 
5056 40 
5050 10 
34 11084 
5036 00 
34 1200 
00 90090 
5036 90 
GO 1190 
12 1n77 
44 0012 


12 176 





9I-F 


SEQNO 


000133 
000134 
000135 
000136 
000137 


000140 
000141 
000142 
000145 
000144 
000145 
000146 
000147 


000150 
o00151 
000152 
000153 
000154 
000155 
000156 
000157 


000160 
000161 
000162 
000163 
000164 
000165 


000166 


000167 


000170 
000171 


LABEL 


RTCOVF 


RILFLT 


MONINT 


STATEMENT 
STRAL*014 +2 OF WD 
ADDALK*7775 AT RTC 
STRAL*015 INC ADDR 


RTC ENABLE RTC MON. 
RIL ENABLE INTERNAL INTS 


ENTALK*3000 DELAY AT LEAST 1024 US 
ADDALK*7776 RECEIVE 

JPALNZ*LOK=1 OF RTC MON INT 
ENTALK*0O1 FLAG RTC MON | 
STRAL*SPINTE NOT RECEIVED 
ENTAL*RTCOVK JP AT 

STRAL*013 RTC OVERFLOW INT ADDR 
ENTALK*7777 FILL 

STRAL*015 RTC INC REG 

RIL EN INTS 

ENTALK*5000 DELAY 1024US 
ADDALK*7776 TO RECEIVE RTC 
JPALNZ*LOK<1 OVERFLOW INT 
ENTAL*SPINTE RECORD ERROR 
ADDALK*02 NO RTC | 
STRAL*SPINTE OVERFLOW INT 
ENTAL*RILERQ RETURN AT 
STRAL*0000 FLT INT ENT 

RTL EN INTS 

00*0000 FORCE INST FLT 


ENTAL*SPINTE 
ADDALK*04 RIL DOES NOT 
STRAL*SPINTE LOCKOUT FLT 
ENTBK*0466 STORE 


RECORD INFO=- 


ENTAL*END1 STOPS 
STRALB*011 AT 


PAGE 


ADDRESS 


01015 
01016 
01017 
01020 
01021 


01022 
01023 
01024 
01025 
01026 
01027 


01050 » 


01031 


01052 
01033 
01034 
01035 
01036 
01057 
01040 
01041 


01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 


01052 
01053 


0004 


INSTRUCT 


G4 0014 


71 


T7775 


4&4 0015 


5014 
5030 


70 
71 
63 
70 
uy 
12 
Ku 
70 


ay 


5030 


70 
71 
63 
12 
71 
44 


12 
44 


5030 


00 
12 
71 
Gy 
36 


12 
45 


00 
00 


3000 
7776 
1023 
0001 
1100 
1101 
0013 
T7777 


0015 

00 
3000 
7776 
1035 
1100 
0002 
1100 


1102 
0000 

00 
0000 
1100 
0004 
1100 
0466 


4350 
0011 


LI-P 


SEQ@NO 


000172 
000173 
000174 
000175 
000176 


000177 
000200 
000201 
000202 
000203 
000204 
000205 
000206 


000207 
000210 
000211 
000212 
000215 
000214 
000215 
000216 


000217 
000220 
000221 
000222 
000225 
000224 
U00225 
000226 


000227 
000230 


LABEL 


DISPOUT 


END1P2 
RTCOK 
SPINTE 


RTCOVK 
RILERG 
MONOK 
SKIPSTOP 


STATEMENT 
BUP*LOK=1 11-477 
ENTAL*MONOK RETURN AT 
STRAL*0140 CHAN 0 OUT MON INT ENT 
OUT*00 OUT Q 
O*LOK+1 w/MON 
2*LOK FwD 
QUTSTP*00 TERM CHAN Q OUT 
OUTOV*00 PRODUCE OUT MON 
RIL ENABLE OUT MON INT 
ENTALK*5000 WAIT TO 
ADDALK*7775 TO INSURE RECEIPT 
JPALNZ*LOK=1 OUT MON INT 
ENTAL*SPINTE RECORD ERR=- 
ADDALK*010 NO QUT MON 
STRAL*SPINTE RECEIVED 
ENTAU*SPINTE DISPLAY SP INT FL6S 
TUP*FLTISOL EXIT TO STOP 
RESERV*01 
505642 STOP*40+2 
JP*RTCOVF AT 12 
0*0 ERROR FLG STR 
JP*RILFLT AT 13 
JP*¥MONINT AT 0000 
JP*DISPOUT AT 140 
SIL*0 SET INTERRUPT LOCKOUTSe 
SXL*00 ADDED INSURANCE OF LOCKOUT 
STOP*40 SET ALL SKIP AND STOP KEYS AND 
RESTART THE COMPUTER. 
905600 IF STOP OCCURS* THE STOP LIGHT 


LITE CORRESPONDS TO A K 
REGISTER BIT THAT ALWAYS 


PAGE 


ADDRESS 


01054 
01055 
01056 
01057 
01060 


01061 
01062 
01063 
01064 
01065 
01066 
01067 
01070 


01071 
01072 
01073 
01074 
01075 
01076 
01077 
01100 


01101 
01102 
01103 
01104 
01105 
01106 


01107 


00n5 
INSTRUCT 
73 «#61053 
12 1103 
G4& 0140 
5012 90 
001061 
201061 
5016 90 
5026 00 
5030 00 
70 3000 
71 = =7775 
63 1066 
12 1190 
71 0010 
4&4 1190 
10 1100 
55 1097 
000000 
505642 
34 1027 
00 ond 
34 1042 
34 1051 
34 1073 
9034 90 
5036 0 
5056 40 
505600 


8I-P 


SEQNO 


000231 
000232 
000233 
000234 
000235 


000236 
000237 
000240 
000241 
000242 
000245 
000244 
vOO245 


000246 
000247 
000250 
000251 
000252 
000253 
GO0254 
000255 


000256 
000257 
000260 
000261 
000262 
000263 
000264 
000265 


000266 
000267 


LABEL 


SKPST1 


* 


% & 


eee HHH He 


# 


STATEMENT 


SKP*00 


JP*SKPST2 


SKPEVN*0 


JP*SKPST1 


SKPODD*0 


JP*SKPST1 


STOP*40 


STOP*4Q 


SKP*«00 


APPEARS TO BE SET FOR STOPS. 
DO ANY OF THE K REGISTER BITS 
ALWAYS APPEAR TO BE SET FOR 
SKIP INSTRUCTIONS? 
NOe CONTINUE TESTING» 


YESe IS THE FALSE SKIP. 
CONDITION ONLY UP FOR 5050XX 
INSTRUCTIONS? 

YESe GO TO ISOLATE TO THE 
FAILING K BIT. 


YESe GQ TO ISOLATE TO THE 
FAILING K BIT POSITION. 


NO». THE SKIP CONDITION IS 
ALWAYS UP FOR ALL SKIP 
INSTRUCTIONS- 

RESTART THE COMPUTER = IT WILL 
HANG UP IN A LOOPe RELEASE 
THE SKIP KEYS ONE BY ONE 
UNTIL A 5 STOP OCCURS. THE 
LAST KEY TO BE RELEASED 


BEFORE THE STOP OCCURS» 
CORRESPONDS TO THE K REGISTER 
BIT THAT ALWAYS APPEARS TO BE 
SET FOR SKIP INSTRUCTIONS 


IF THE PROGRAM IS STILL LOOPING 


AFTER ALL THE SKIP KEY HAVE 
BEEN RELEASED» THIS INDICATES 
THAT K REGISTER BIT 05 ALWAYS 


APPEARS SET FOR SKIPS. 


PAGE 


ADDRESS 


01110 


01111 


01112 
01113 


01114 
01115 


01116 


01117 


011290 


0006 
INSTRUCT 
5050 00 


34 1124 


5055 00 
354 1117 


2054 0 
34 1117 


5056 40. 


5056 40 


5050 90 





6I-P 


SEQNO 


000270 
000271 
000272 
000275 
000274 


000275 
000276 
000277 
000300 
000301 
000302 
000303 
000304 


000305 
000306 
000307 
000310 
000311 
000312 
000313 
000314 


V00315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 


000325 
000326 


LABEL 


SKPST2 


eee eH & 


+ & 


STATEMENT 


JP*LOKt2 
JP*¥LOK=2 
STOP*40 
ENTAL*POSZERO 
SKP*O1 


SLSET*SSO 
SKP*02 
SLSET*SS1 
SKP¥*QO4 
SLSET*SS2 
SKP*10 
SLSET*SS3 
SKP*20 


SLSET*SS4 
SKP*4Q 
SLSET*SS5 
JPALZ*SKPST3 


SKPEVN*0 
JP¥LOKt2 
JP¥*¥LOK +S 


SKPODD*0 
SLSET*SS6 
STOP*40 


INITIATE FAILURE TO SKIP FLAG. 
IF SKP*01 FAILS 


SET BIT 00 IN THE FLAGe 
IF SKP*02 FAILS 

SET BIT 01 IN THE FLAGe 
IF SKP*04 FAILS 

SET BIT 02 IN THE FLAGe 
IF SKP*10 FAILS 

SET BIT 03 IN THE FLAGe 
IF SKP*20 FAILS 


SET BIT 04 IN THE FLAGe 

IF SKP*40 FAILS 
SET BIT 05 IN THE FLAGe 

IF NO SKIP FAILURE WAS DETECTED 
GO TEST THE STOP. 

DOES THE FAILURE AFFECT OTHER 
SKIP INSTRUCTIONS? 


YESe SET BIT Of IN THE FLAG. 


AL EQUAL TO 000177 IMPLIES THAT 
THE FAILURE AFFECTS ALL SKIP 
INSTRUCTIONS. 

AL EQUAL TO 000077 IMPLIES THAT 
THE FATLURE AFFECTS ALL K 


VALUES FOR THE S5050xXxX SKIP 
INSTRUCTION. 


PAGE 


ADDRESS 


01121 
01122 
01123 
01124 
01125 


01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 


01136 
01157 
01140 
O1141 


01142 
~—601143 
01144 


01145 
01146 
01147 


0097 
INSTRUCT 
34 1123 
34 1120 
5056 40 
12 4510 
5050 o1 
5i Suto 
5050 02 
5i 5473 
5050 04 
51 5Suv7y 
5050 10 
51 Sarvs 
5050 20 
51 5u76 
5050 40 
51 5477 
61 1150 
5055 90 
34 1145 
34 1187 
5054 00 
51 5590 
5056 40 


0c~-? 


SEQNO 


000327 
000330 
000331 
000332 
000353 


000334 
000335 
000336 
000337 
000340 
000341 
000342 
000345 


000344 
000345 
000346 
000347 
000350 
000351 
000352 
000353 


000354 
000355 
000356 


000357 | 


000360 
000361 
000362 
000365 


000364 
000365 


LABEL 


* 


* 
SKPST4 


STATEMENT 


STOP*77 


STOP*37 


SKP*37 
JP*SKPSTY 


WTFI 
ENTAL*POSZERO 
SKP¥*O1 


JPFLOK+2 
SLSET*SSO 
oKP*02 


JP*LOK+2 


SLSET*SS1i 
SKP*04 


JPFLOKt2) 


IF AS 
THEN 
SKIP 
PATH 

IF ANY 


THEN 
STOP 
PATH 
IF ALL 
THEN 
ALL 
THE ST 


INGLE BIT IS SET IN AL 
EITHER THE CORRESPONDING 
KEY OR K REGISTER BIT 
FOR SKIPS HAS FAILED-. 
STOP LIGHT IS NOT LITE» 


EITTHER THE CORRESPONDING 
KEY OR K REGISTER BIT 
FOR STOPS HAS FAILED. 

THE STOP LIGHTS ARE LITE>s 
CLEAR ALL THE SKIP AND 
THE STOP KEYSe 
OP KEY CORRESPONDING TO 


THE STOP LIGHT LITE ALWAYS 


APPEARS SET. 


TF ALL 
BYPA 
IF ALL 


SKIP KEYS ARE CLEARED» 
SS THE wTFY HANG UP. 


OF THE STOPS FAIL® THE 


PROGRAM WILL HANG UP HERE-s 
INITIATE THE ERROR FLAG. 
DOES SKIP KEY 0 ALWAYS APPEAR 


TO B 


YESe 


CSET 


SET BIT ON IN THE FLAG. 


DOES SKIP KEY 1 ALWAYS APPEAR 


TO B 


YESe 


E SET? 
SET BIT 01 IN THE FLAG. 


DOES SKIP KEY 2 ALWAYS APPEAR 


TO BE SET? 


PAGE 


ADDRESS 


01150 


01151 


01152 
01153 


01154 


01155 


01156 


01157 
0116N 
01161 


01162 


01163 
01164 


01165 


00n8 


INSTRUCT 


5056 77 


5056 37 


5050 37 
34 1155 


5024 00 
12 4510 
9050 901 


34 1161 
51 S472 
5050 2 


34 1164 


5i 5473 
5050 04 


34 1157 


Te-v 


SEQNO 


000366 
000367 
000370 
000371 
000372 


000373 
000374 
000375 
000376 
000377 
000400 
000401 
GO0040e 


000403 
000404 
000405 
000406 
000407 
000410 


— 900411 


000412 


000415 
000414 
000415 
000416 
000417 
000420 
000421 
000422 


000423 
000424 


LABEL 


PRELIM 


STATEMENT 


SLSET*SS2 
SKP#*10 


JP*LOKtE 
SLSET#*SS3 


SKP*20 
JP*LOKt2 


SLSET*SS4 
JPALZ*LOK+t+2 


STOP *4Q 


STOP*4O 


REMARK*SET STOP AND 


ENTAL*AFAULT 
STRAL*0800 
ENTAL*REPLEM 


STRAL*SMEAL 
ENTAL*ISAU 
STRAL*SAUCE 
ENTAL*STARTADD 
STRAL*IFAULT 
ENTAL*NEGZERO 
JPALZ*ALLOW 
ENTAL*POSZERO 


© JPALZ*LOK+t5 


CMAL*POSZERO 


YESe SET BIT 02 IN THE FLAG. 

DOES SKIP KEY 3 ALWAYS APPEAR 
TO BE SET? 

YESe SET BIT O03 IN THE FLAG. 

DOES SKIP KEY 4 ALWAYS APPEAR 
TO BE SET? | 


YESe SET BIT O4 IN THE FLAGe 

IF NONE OF THE SKIP KEYS FAILES» 
EXIT FROM THE SKIPSTOP 
SUBROUTINE. 

THE BIT POSITION SET IN AL 


INDICATES THAT THE 
CORRESPONDING SKIP KEY ALWAYS 
APPEARS TO BE SET- 

END OF SKIPSTOP TEST 

SKIP KEYS AS NEFDED 

RJP TO FLT RT IN 

FLT ENT ADOR 

AL EQ 34LOKt5 


PRESTORE JUMP > 

AL EQ OOKUP 
PRESTORE CONSTANT 
P OF CONTBASTI 
IFAULT 


CHK AL EQ 0 SET 


IF JP-60 OK 
CHK COMP FF SET 


PAGE 


ADDRESS 


01166 
01167 


01179 
01171 


01172 


01173 
01174 
01175 


01176 


01177 


01200 
01201 
01202 


01203 
01204 
01205 
01206 


01207 


01210 
01211 
01212 


01213 
01214 


onng 
INSTRUCT 
Si 5474 
5050 10 
34 1172 
51 $475 
5050 270 
34 1175 
51 5476 
61 1177 
5056 40 
5056 40 
12 4361 
44 9nno 
12 4646 
Gu 12040 
12 4647 
Yu «1 247 
12 4661 
GY 4YuDY 
12 4512 
61 1232 
12 48510 
61 1220 


02 4510 





COWP 


SEQNO 


000425 
000426 
000427 
000430 
000431 


000432 
000433 
Q00434 
000435 
O004SE 
000437 


000440 


000441 
000442 
000443 
000444 
000445 
000445 
000447 
000450 


000451 
000452 
000453 
000454 
000455 
000456 
000457 
000460 


000461 
000462 


LABEL 


ALL UW 


JUMRET 


SMEAL 


SAUCE 


KUP 


STATEMENT 


JPAL Z*LOK+2 
STOP*4&0 
STOP*40 

CMAL *ZEROSEPT 
JPEQ*LOK +4 


CMAL *POSZERO 
JPEQ*JUMRET 
STOP*40 
ENTAL*¥QUTREDEUX 
CMAL *QUTREDEUX 
JPEQ*LOKt+2 


STOP*4QG 


STOP*4Q 
ENTAL¥*SEPTZERQ 
JPALZ*LOKt2 
STOP*4Q 
STOP*40 
RUP*SMEAL 
STOP*4Q 
JP*LOKt5 


ENTAL*SMEAL 
CMAL*PEAPLUS 
JPEQ*LOKt3 
STOP*4O 
STOP*4&O 
IUP*SAUCE 
O0*KUP 
STOP*4Q 


ENTAL*ELM 
STRAL*®7775 


OF STACK TO CHK FOR P BITS DROPPED 


PAGE 


ADDRESS 
01215 
ERROR STOP 01216 
ERROR STOP 01217 
AL NEQ Y 01220 
CHK EQ FF SET OR COMP FF NOT SET 01221 
AL EQ Y 01222 
CHK 02 TRANS AND EQ FF NOT SET 01223 
ERROR STOP 01224 
01225 
AL EQ Y 01226 
IF JP“EQ FF SET=NO JP=COMP NOT SET 
01227 
ERROR STOP 012359 
ERROR STOP 01231 
01252 
IF JP-AL EQ 0 SET 01233 
ERROR STOP 012354 
ERROR STOP 01255 
CHK RJP@#IF NQ JPep ADV ERROR 01236 
ERROR STOP 012357 
IF JP-NORMAL JP=-ERROR 01240 
01241 
IS CORRECT P+1 STORED 01242 
YES-CONTINUE 01243 
ERROR STOP 01244 
ERROR STOP 01245 
CHK IJP 01246 
01247 
ERROR STOP 01250 
AL EQ 12P0SZERO=-STORE PROG AT TOP 01251 


on10 
INSTRUCT 
61 1217 
5056 40 
5056 40 
02 444o 
61 1225 
02 4510 
61 1236 
5056 40 
12 4414 
02 4414 
61 1231 
5056 40 
5056 40 
12 5067 
61 1235 
5056 40 
5056 40 
76 1240 
5056 40 
34 1245 
12 1240 
02 4654 
61 1246 
5056. 40 
5056 40 
55 1247 
00 1251) 
5056 40 
12 4664 


EG~P 


SEQNO 


UV00463 
000464 
000465 
000466 


000467 
000470 
O0047]1 
000472 
000473 
000474 
G00475 
000476 


000477 
000500 
v00501 
000502 
000503 
G00504 
000505 
000506 


000507 
000510 
000511 
000512 
0005135 
000514 
000515 
000515 


000517 
000520 


LABEL 


ELMe 


EXRET 


STATEMENT 


ENTAL*ELM1L AL EQ 34ELM2 
STRAL*7776 
ENTAL*LOK+2 IF FAULT=DISPLAY JP TO 7775 
STRAL*IFAULT UPPER BITS DROPPED WILL STOP AT 
JIP*7775 SOME STOP IN MAIN PROGRAM 
SKP*04 SET SKIP KEY 2 TO CYCLE TEST 
JP*EXRET TO EXEC 
JP*PRELIM TO RECYCLE PRELIM 
RUP*DEEDEE EXEC 
RJP*KOQNG EXECUTE KONG 
RJP*SLUP EXECUTE SLUP 
RJP* ICEBERG EXECUTE ICEBERG 
RJP*CAMEO EXECUTE CAMEO 
RJP*SUPEREG EXECUTE SUPEREG 
RUP*KAYADDER EXECUTE KAYADDEP 
RJUP*SHIFLESS EXECUTE SHIFLESS 
RJP*ADDSUBAD EXECUTE ADDSUBAD 
RJP*MUDDIVE EXECUTE MUDDIVE ~ 
RJUP*PARITY EXECUTE PARITY 
ENTAU*POSZEROQ CLEAR AU 
ENTALK*0000 CLAER AL 
STRAL*WASTE CL WASTE+* PREP RECYCLE 
STUOP*O1 SET STOP KEY 0 TO END TEST 
SKP*20 SET SKIP KEY 4 TO REF UPAK 
SKP*40 CONTINUE@=BYPASS MTU AUTO LOAD 
RUP*ZPACS GO SELECT BLOCK»eMEM OR I/O 
SKP*01 SET SKIP KEY 0 TO LOAD MEM TEST 
JP*PRELIM TO CYCLE COMPLETE TEST 

— JP*500 LET BOOTSTRAP LOAD MEM TEST 
RESERV*O1 


PAGE 


ADDRESS 


01252 
01253 
01254 
01255 
01256 


01257 
01260 
01261 
01262 
01263 
01264 
01265 
01266 


01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 


01277 
01300 
01301 
01502 
01303 
01304 
01305 
01306 


01307 
01319 


0011 
INSTRUCT 
GY 7775 
12 4665 
4&4 7776 
12 1257 
4G 404 
34 7775 
5050 94 
34. 1263 
34 1200 
76 1311 
76 1357 
76 1522 
76 1657 
76 2190 
76 2266 
76 2427 
76 2523 
76 3024 
76 3240 
76 3367 
10 64510 
70 =60anN0 
4G 4637 
9056 01 
5050 20 
5050 4&0 
76 «5591 
5050 91 
34 1290 
34 0500 


000990 


beh 


SEQ@NO 


000521 
000522 
000523 
VUV0524 
000525 


000526 
000527 
000530 
000531 
00053¢e 
000535 
000534 
000535 


000536 
000537 
000540 
000541 
G0054<e 
000543 
000544 
000545 


000546 
000547 
000550 
000551 
000552 
000555 
000554 
000555 


000556 
000557 


LABEL 


DEEDEE 


TOBY 


FUMbLE 


STATEMENT 


0*0 
ENTAL*SEPTZERO 
STRAL*STROLL 
ENTAU*TROISCING 
STRAU*STROLL 


ENTAL*STROLL 
CMAL*TROISCING 
JPEQ*FUMBLE+2 
CMAL*SEPTZERO 
JPEQ*FUMBLE 
JPAL Z*F UMBLE +1 
STRAL*SROBY 
STRAL*SROBYt1 


SUBA*SROBY 
STRAU*STROLL 
ENTAL*STROLL 
JPALZ*LOK+2 
STOP*KuUO 
SUBA*TWOSEV 
STRAU*STROLL 
ENTAL*STROLL 


CMAL*NEGZERO 
JPEQ*LOKt2 
STOP*40 
ENTAL*SROBY 
STOP *«4Q 

STOP*4Q 

STOP*40 
ENTAU*QUTREDEUX 


STRAU*STROLL 
ENTAL*STROLL 


ENTRANCE 


CHK FUNC 10 
CHK FUNC 46 


IS AU 


STORED AND CORRECT 


YES=-CONT 
NO-EAS ANY AU VALUE STORED 
YES~-46 ERROR 


No-IS 
STORE 


AU CONST CL=X"AU ENBL MISS 
ERROR 


CHK FOR CONST 1 IN AU BITS 


ERROR 


STOP 


SUB WITH 777777=-777777 


CHK FOR CONST O IN AU BITS 


IF JP 
ERROR 


ERROR 
ERROR 
ERROR 


INPUT ERROR 
STOP 


STOP 
STOP 
STOP 


PAGE 


ADDRESS 


01311 
01312 
01313 
01314 
01315 


01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 


01326 
01327 
01350 
01351 
01332 
01333 
01534 
013555 


01336 
01357 
01340 
01341 
01342 
01343 
01344 
01345 


01346 
01347 


0n12 
INSTRUCT 
00 Onno 
12 5067 
GG 4AS1 
10 «4412 
46 4631 
12 4631 
02 4412 
61 1345 
02 5967 
61 1343 
61 1344 
G4 4633 
44H“ 4634 
22 4633 
46 4631 
12 4631 
61 1333 
5056 40 
22 4545 
46 4631 
12 4631 
02 4512 
61 1341 
5056 40 
12 4633 
5056 40 
5056 40 
5056 40 
19 4u14y 
46 GARI 
12 4631 


Go-P 


SEQ@NO 


000560 
000561 
000562 
000563 
000564 


000565 
000566 
000567 
000570 
Ov0571 
000572 
000575 
0060574 


000575 
000576 
000577 
000600 
000601 


 00060e 


000603 
000604 


000605 
000606 
000607 
000610 
000611 
000612 
000613 
000614 


000615 
000616 


LABEL 


KONG 


STATEMENT 


CMAL*QUTREDEUX 
JPEQ*LOK+2 
JP*TOBY 

SKP*0O4 
IJUP*DEEDEE 


JP*DEEDEE+1 
RESERV*01 

0*0 

ENTALK*00 
STRAL*COLLECT 
ENTALK*7777 
CMAL*NEGZERO 
JPEQ*LOKt2 


STOP*4O 
ENTALK*3777 
CMAL*MAZE 
JPEQ*LOKtF2) 
STOP*40 
ENTAL*THIFIVE 
ADDALK*3535 
CMAL*TROISCING 


JPEQ*LOKt2 


 —STOP*4yg 


ENTAL*DUALSEV 
ADDALK*7700 
JPALZ*LOK+2 
STOP *40 
ENTAU*POSZERDO 
JPAUZ#LOK+4 


~ ENTAL*COLLECT 


ADDALK*0001 


IS AU CORRECT 
YES-CONT 


SET SKIP KEY 2 TO CYCLE TEST 
EXIT 


TO RECYLE DEEDEE 


ENTRANCE 


CKK FUNC 709 
AL EQ 777777 
YES*CONTINUE 


NO-ERROR STOP 
IS AL 003777 


ERROR STOP 
AL EQ 350000 
CHK FUNC 71 
AL EQ 353535 


YES=-CONT INUE 
NO-ERROR STOP 
AL E@ 000077 
CHK EXT 


AL EO O-YES@CONTINUE 
NO=ERROR STOP 


CHK FUNC 607IF JP=0K 


PAGE 


ADDRESS 


01350 
01351 
01352 
01353 
01354 


01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 


01365 
01366 
013567 
01370 
01371 
01372 
01373 
01374 


01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 


01405 


01406 


0013 
INSTRUCT 
02 4414 
61 1353 
54 1324 
5050 04 
55 1311 
34 1312 

000090 
00 0000 
70 Oong 
4G 4613 
70 7777 
02 4512 
61 1366 
5056 40 
70 3777 
02 4451 
61 1372 
9056 40 
12 4437 
Tt, -o839 
02 4412 
61 1377 
5056 40 
12 5110 
71 7790 
61 1493 
5056 40 
10 4510 
60 1410 
12 4613 


7i OON! 


96-7 


SEQNO 


000617 
000620 
000621 
000622 
0006235 


000624 
000625 
000626 
000627 
000630 
000631 
000632 
000633 


000634 
000635 
000636 
000637 
000640 
000641 
00064e 
000643 


000644 
000645 
000646 
000647 
000650 
000651 
000652 
000653 


000654 
000655 


LABEL 


STATEMENT 


STRAL*COLLECT 


ENTAU*ZEROSEPT 


JPAUZ*LOK+2 
JPFLOK+4 
ENTAL*#COLLECT 


ADDALK*0002 
STRAL*COLLECT 
JPAUNZ*LOKT4 
ENTAL*COLLECT 
ADDALK*0004 
STRAL*COLLECT 
ENTAU*POSZERO 
JPAUNZ¥*LOK +2 


JP¥LOKt4 
ENTAL*COLLECT 
ADDALK*0010 
STRAL*¥COLLECT 
ENTAU*ZEROSIX 
JPAUP*LOKt4 
ENTAL*COLLECT 
ADDALK*0020 


STRAL*¥COLLECT 


ENTAUFTSEVTZER 


JPAUP*LOKt2 
JP¥FLOK+4 
ENTAL*COLLECT 
ADDALK*0040 
STRAL*COLLECT 
JPAUNG*LOK+t+4 


ENTAL*COLLECT 
ADDALK*0100 


RECORD ERROR 


IF JP=-ERROR 
OK-CONTINUE 


RECORD ERROR 

CHK FUNC 62-IF JUP=0K 
RECORD ERROR 

IF JP-ERROR 
OK-CONTINUE 


RECORD FRROR 


CHK FUNC 64-IF JP=0K 


RECORD ERROR 
IF JP=ERROR 
OK-CONTINUE 


RECORD ERROR 
CHK FUNC 66°IF JP=0K 


PAGE 


ADDRESS 


01407 
01410 
01411 
01412 
01413 


01414 


01415 


01416 
01417 
01420 
01421 
01422 
01423 


01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 


01434 
01435 
01436 
01437 
01440 
0144) 
01442 
01443 


01444 
01445 


O04 
INSTRUCT 
G4 4613 
10 4&4HO 
60 1413 
34 ints 
12 4613 
71 onoe2 
“GQ 4613 
62 1422 
12 4613 
7i OnNG 
G4 4613 
10 4510 
62 1425 
34 1430 
12 4613 
71 On10 
UG 4513 
10 5950 
64 1435 
12 4613 
71 0020 
GG 4613 
19 4443 
64 1u40 
34 1443 
12 4613 
71 On40 
GU 4613 
66 1447 
12 44613 
71 0100 


Lé~-¥ 


SEQNO 


000656 
000657 
000660 
000661 
000662 


000663 
000664 
000665 
000666 
000667 
000670 
000671 
000672 


000673 
000674 
000675 
000676 
000677 
000700 
000701 
000702 


000703 
000704 
000705 
000706 
000707 
000716 
0007i1 
000712 


000713 
000714 


LABEL 


STATEMENT 


STRAL*COLLECT 


ENTAU*ZEROSEPT 


JPAUNG*¥LOKt2 
JP¥*LOK+4 


ENTAL*COLLECT 


ADDALK*0200 
STRAL*COLLECT 
ENTAL*SIXSEPT 
JPALNZ*LOK+4 
ENTAL*COLLECT 
ADDALK*0400 
STRAL*COLLECT 
ENTAL*POSZERO 


JPALNZ*LOKt2 
JP*LOK+4 
ENTAL*COLLECT 
ADDALK*1000 
STRAL*COLLECT 


ENTAL*TROISZERO 


JPALP*LOK+4 
ENTAL*COLLECT 


ADDALK*2000 


STRAL*COLLECT 
ENTAL*SIXSEPT 
JPALP*LOK+2 
JP*#LOK+4 
ENTAL*COLLECT 
ADDALK*4000 
STRAL*COLLECT 


_ JPALNG¥LOKt+2 


JP*LOK+6 


RECORD ERROR 


IF JP-ERROR 
OK=CONTINUE 


RECORD ERROR 


CHK FUNC 63-IF UP=0K. 


RECORD ERROR 


IF JP-ERROR 
OK=CONTINUE 


RECORD ERROR 


CHK FUNC 65°IF JP=-0K 


RECORD ERROR 


IF JP-ERROR 
OK=-CONTINUE 


CHK FUNC 67°IF JP-0K 


PAGE 


ADDRESS 


01446 
01447 
01450 


01451. 


01452 


01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 


01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 


01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 


01503 
01504 


0015 
INSTRUCT 
44 4613 
10 4440 
66 1452 
34° 1455 
12 4613 
71 0200 
G4 4613 
12 4460 
63 1462 
12 4613 
71 o4n0 
Gu 4613 
12 4510 
63 1465 
34 1470 
12 4613 
71 1000 
G4 4613 
12 4464 
65 1475 
12 4613 
71 20n0 
44 4613 
12 4460 
65 1500 
34 1503 
12 4613 
71 4n00 
44 4613 
67 1505 
34 1512 





82-F 


SEQNO 


000715 
000716 
000717 
000720 
000721 


000722 
0007235 
000724 
000725 
VO072E 
000727 
000730 
000731 


000732 
0060733 
000734 
000735 
000736 
000737 
000740 
000741) 


000742 
0007435 
000744 
000745 
000746 
VOO0747 
000750 
000751 


000752 
000753 


LABEL 


SslLuP 


STATEMENT 


ENTAL*ZEROSIX 
JPALNG*LOK+6 
ENTAL*¥COLLECT 
JPALZ*LOK+6 
STOP*40 


ENTAU*ZEROUNE 
JP*LOK=2 
ENTAU*ZERODEUX 
JP*LOK=4 
SKP*O4 
IUP*KQNG 
JP*KONGT1 
RESERV*01 


0*0 
ENTAL*TROISCING 
SLSET*QUTREDEUX 
CMAL *NEGZERO 
JPEQ*LOKt2 
STOP*4O 
ENTAL*QUTREDEUX 
SLSET*TROISCING 


CMAL*NEGZERO 
JPEQ*LOKt2) 
STOP*40 


ENTAL*SEPTZERO 


SLCL*ZEROSEPT 
JPALZ¥*LOK+2 
STOP*4&O 
ENTAL*ZEROQSEPT 


SLCL*SEPTZERO 
JPALZ*LOKt2 


IF JP-ALL UPS OK 
ERROR STOP 


SET SKIP KEY 2 TO CYCLE TEST 
EXIT 
TO RECYCLE KONG 


ENTRANCE 


CHK FUNC 51 

IS AL 777777 
YES-CONTINUE 
NO=ERROR STOP 


IS AL 777777 
YES=CONTINUE 
NO-ERROR STOP 


CHK FUNC 52 


TIS AL ZERO-YES=CONTINUE 
NO-ERROR STOP 


IS AL ZERO-YES=CONTINUE 


PAGE 


ADDRESS 


01505 
01506 
01507 
01510 
01511 


01512 


(01513 


01514 
01515 
01516 
01517 
01520 
01521 


01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 


01532 
01533 
01534 


01555 


01536 
01537 
01540 
01541 


015402 
01543 


0016 
INSTRUCT 
12 5050 
67 1514 
12 4613 
61 1516 
5056 40 
10 5032 
34 1511 
10 4466 
34 1511 
5050 04 
55 1357 
34 1360 

000000 
00 0n00 
12 4ule 
5i 4uly 
02 4512 
61 1530 
5056 40 
12 4414 
5i 4412 
02 4512 
61 1535 
5056 40 
12 5067 
52 4400 
61 1541 
5056 40 
12 4440 
52 5n67 
61 1545 


60-7 


OE QNO 


J00754 
000755 
000756 
000757 
000760 


000761 
090762 
000763 
000764 
000765 
000766 
000767 
000776 


000771 
000772 
000773 
000774 
000775 
000776 
000777 
001000 


Q01001 
001002 
001003 
001004 
001005 
001006 
001007 
001010 


001011 
OO101e 


LABEL 


STATEMENT 


STOP «40 
ENTAL*QUTREDEUX 
SLCP*TROISCING 
CMAL*NEGZERO 
JPEQ*LOKt2] 


STOP*«40 
ENTAL*TROISCING 
SLCP*QUTREDEUX 
CMAL*NEGZERO 
JPEQ*LOKt2 
STOP*4uo 
ENTAU*SEPTZERO 
ENTAL*TROISCING 


SLSU*QUTREDEUX 
CMAL*QUTRECING 
JPEQ*LOKt2 

STOP *4Q 
ENTAU*ZEROSEPT 
ENTAL*TROISCING 
SLSU*QUTREDEUX 
CMAL *€TROISDEUX 


- SPEQ@*LOK+2 


STOP *40 
ENTAL*®TROISCING 
CPAL 

CMAL *QUTREDEUX 
JPEQ*LOKt2 

STOP *4O 

CPAL 


— CMAL*TROISCING 


JPES*LOK+2 


NO-ERROR STOP 
CHK FUNC 53 


IS AL 777777 
YES*CONTINUE 


NO-ERROR STOP 


IS AL 777777 
YES=CONTINUE 
NO=ERROR STOP 
AU EQ 707070 
AL EQ 355535 


CHK FUNC 04 
TS AL 454545 
YES=-CONTINUE 
NO-ERROR STOP 
AU EQ 070707 
AL EQ 353535 


IS AL 323232 


YES=CONTINUE 
NO=ERROR STOP 


CHK FUNC 5061 
TIS AL 424242 
YES@-CONTINUE 
NO-ERROR STOP 


TS AL 5353535 
YES@=CONTINUE 


PAGE 


ADDRESS 


01544 
01545 
01546 
01547 
01550 


01551 
01552 
01553 
01554 
01555 
01556 
01557 
01560 


01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 


01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 


01601 


01602 


0017 
INSTRUCT 
5056 #0 
12 44a 
53 4412 
02 4512 
61 1552 

50565 40 
12 4412 
53 4ulYy 
02 4512 
61 1557 
5056 40 
10 5067 
12 4412 
04 414 
02 453 
61 1565 
5056 40 
10 «4440 
i2@ 4ule 
O04 4414 
02 4452 
61 1573 
5056 40 
12 44&lea 
5061 90 
02 4uly 
61 1690 
5056 40 
5061 90 
N2 4412 
61 1694 


O€~P 


SEQNO 


001013 
001014 
001015 
001016 
001017 


001020 
001021 
001022 
001023 
00102! 
001025 
001026 
001027 


001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 


001040 
001041 
001042 
001043 
001044 
001045 
001046 
001047 


001050 
001051 


LABEL 


STATEMENT | 


STOP*40 
ENTAL*POSZERO 
CPAL 
JPALZ*LOK+2 
STOP*4Q 


ENTAU*TROISCING 
CPAY | 
STRAU*WASTE 
ENTAL*WASTE 
CMAL*QUTREDEUX 
JPEQ*LOKt2 
STOP*4Q 

CPAYU 


STRAU*WASTE 
ENTAL*WASTE 
CMAL*TROISCING 
JPEQ*LOKt+2 
STOP*40 
ENTAU*POSZERO 
CPAY 


JSPAUZFLOKte2 


STOP*4O 
ENTAU*TROISCING 
ENTAL*TROISCING 
CPA a 
CMAL *QUTREDEUX 
JPEQ*LOK+2 
STOP*40 
STRAU*WASTE 


ENTAL*WASTE 
CMAL*QUTREDEUX 


NO-ERROR STOP 


CHK IF COMP ZERN 
AL EQ ZERO-YES-CONTINUE 
NO-ERROR STOP 


CHK FUNC 5062 


IS AL 424242 
YES-CONTINUE 
NO-ERROR STOP 


IS AL 353535 
YES=CONTINUE 
NO-ERROR STOP 


CHK FOR COMP ZERO 
AYU ZERO-YES=-0K 


NO=ERROR STOP 
CHK FUNC 5063 
IS AL 424242 


YES@-CONTINUE 
NO-ERROR STOP 


IS AL 424242 


PAGE 


ADDRESS 


01603 


01604 
01605 
01606 
01607 


01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 


01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 


01650 
01631 
01652 


01633 


01634 
01655 
01656 
016357 


01649 
01641 


0018 
INSTRUCT 
9056 40 
12 4510 
5061 900 
61 1610 
2056 40 
10 4412 
5062 90 
G6 4637 
12 4637 
02 44uly 
61 1617 
5056 40 
5062 00 
46 4637 
12 4637 
02 4412 
61 1625 
5056 40 
10 4510 
5062 0 
60 1631 
5056 40 
10 44ule 
12 44yle 
5063 90 
02 &4u14 
61 1637 
5056 40 
46 4637 
12 4637 


02 4414 


TE-% 


SEQNO 


001052 
001053 
001054 
001055 
001056 


001057 


001060 
001063 
00106e 
001065 
001064 
001065 
001066 


001067 
0010706 
001071 
001072 
001073 
001074 


—~001075 


001076 


001077 
001100 
001101 
001102 
001103 
001104 
001105 
001106 


001107 
001110 


LABEL 


ICEBERG 


BEWARE 


STATEMENT 

JPEQ*LOKt2 YES-CONT 
STOP*40 NO-ERROR STOP 
ENTAU*POSZERO 
ENTALK*00 
CPA*Q0 CHK FOR COMP OF Oo 
JPAUZ*LOK+2 AU O-YES=<CONTINUE 
STOP*40 NO-ERROR STOP 
JPALZ*LOK+2 AL. O-YES -CONTINUE 
STOP*&O © NO-ERROR STOP 
SKP*04 SET SKIP KEY 2 TO CYCLE TEST 
TUP*SLUP EXIT 
JP*SLUPF1 TO RECYCLE SLuP 
RESERV*01 
0*Q ENTRANCE 
ENTALK*7777 
STRAL*WASUP 
ENTAL*POSZERO 
STRAL*WASTE CL WASTE 
STRAL*COLLECT CL COLLECT 
ENTAL*BEEREG AL EQ 507210 
STRAL*BEWARE 
ENTALK*7710 
STRAL*DUNLUP 
ENTALK*10 
STRAL*BELONG 
000000 CHK ENTICRS 
STRICR*¥WASTE CHK IF STORED AND CORRECT 
STRICR¥WASUP CHK IF UPPER BITS CHANGED 
ENTAL *wASUP 

~ CMAL*DUNLUP ARE UPPER 12 BITS OK 
JPEIV*LOK+2) YES-CONTINUE 


PAGE 


ADDRESS 


01642 
01643 
01644 
01645 
01646 


01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 


01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 


01667 
01679 
01671 
01672 
01673 
01674 
01675 
01676 


01677 
01709 


0019 
INSTRUCT 
61 1644 
5056 40 
10 4510 
70 8 on00 
5063 00 
60 1651 
2056 40 
61 1653 
5056 40 
5050 ny 
55 1522 
34 1523 

000NND 
00 onno 
70 7777 
G4 4650 
12 4510 
4G 4637 
G4 4613 
12 4446 
G4 1473 
70 867710 
GG 4651 
70 onto 
4G 4612 

0900000 
72 4637 
72 &650 
12 4650 
02 4651 
61 17nN2 


CE~P 


SEQNO 


OO1111 
OVlile 
001113 
001114 
001115 


001116 
001117 
001120 
QO1li21 
001122 
001123 
001124 
001125 


0U1126 
U01127 
001130 
001131 
001132 
001135 
001134 
001135 


001136 
001137 
001140 
001141 
001142 
001145 
001144 
OO1145 


001146 
001147 


LABEL 


STATEMENT 


STUP*40 
ENTAL*WASTE 
CMAL *BELONG 
JPEQ*LOK+6 
JPALNZ*LOKt2 


STOP *40 
ENTAL*COLLECT 
ADDALK*0O1 
STRAL*COLLECT 
ENTAL*COLLECT 
LSHAL*O01 
STRAL*COLLECT 
ENTAL*DUNLUP 


ADDALK*7776 
STRAL*OUNLUP 
ENTAL*BELONG 
ADDALK*7776 
STRAL*BELONG 
ENTAL*BEWARE 
ADDALK*7776 
STRAL*BEWARE 


SLCL*DUALSEV 
JPALNZ*BEWARE 
ENTAL*COLLECT 
JPALZ*LOK+t+2 
STOP*4Q 
STRAL*G001 
STRAL*0002 
STRAL*0003 


OTRAL*0004 
STRAL*0005 


NO-ERROR STOP 
YES=CONTINUE 
IS AL ZERO=NO=-CANTINUE 


YES“-ERROR STOP 


RECORD ERROR 


DECREMENT 1 


DECREMENT 1 


DECREMENT 1 


CL WITH 000077 
AL EQ ZERO=-}ALL ICRS CHK 


AL EQ ZEROR\ALL ENTICRS OK 
NO-ERROR STOP 
CL Bl 


PAGE 


ADDRESS 


01701 
01702 
01703 
01704 
01705 


01706 
01707 
01710 
01711 
01712 
01713 
01714 
01715 


01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 


01726 


01727 
01730 
01731 
01732 
01733 
01734 
01735 


01736 
01737 


0020 
INSTRUCT 
5056 40 
12 &6&37 
02 4612 
61 1712 
63 17N7 
5056 40 
12 4613 
7i QNnOL 
G4 4613 
12 4613 
5046 91 
KY 4613 
12 4651 
Ti 7776 
Gus UBS] 
12 4612 
7i T7776 
G4U_:i‘iéwR BLO 
12 15673 
71 7776 
GG 1673 
52 51190 
63 1673 
12? 4613 
61 1733 
5055 40 
GG O00] 
“sia Ae 
4G O00n3 
G4Y ONnAY 


G4 0095 


Se-P7 


SEQNO 


001150 
VO1151 
U0115e 
001153 
001154 


0V1155 
001156 
GO11L57 
001160 
001161 
001162 
001163 
001164 


001165 
V01166 
001167 
001170 
001171 
001172 
001173 
001174 


001175 
001176 
001177 
001200 
001201 
001202 
001203 
001204 


001205 
001206 


LABEL 


BEEMIN 


BEECHK 


STATEMENT 
STRAL*O0UG6 
STRAL*0007 
STRAL*0010 
ENTICR*O1 
ENTBK*7777 CHK FUNC 36 
ENTAL*0001 
CMAL*NEGZERO IS AL 777777 
JPEQ*LOK+4 YES=CONTINUE 
JPALZ*LOK+e2 DID ANY B GET STORED 
STOP *4O ERROR STOP 
STOP*4Q ERROR STOP 
ENTAL*POSZERO 
STRAL*U0001 
ENTAL*BEEMIN AL E@ 120001 
STRAL*BEECHK 
oo000ND CHK ALL 8 LOKS 
JPALZ*LOK+2 IS AL O-YES CONTINUE 
STOP*4KO NO-ERROR STOP 
ENTAL*BEECHK 
ADDALK*01 INCREMENT 1 
STRAL*3EECHK 
CMAL *BEEMAX ARE ALL 8 LOKS CHK 
JPEQ*LOK+2 © YES-CONTINUE 
JP*3EECHK NO=-CONT CHK B LOOKS 
ENTS*ZEROSIX CHK FUNC 32 
ENTAL*0001 
CMAL*ZEROSIX IS AL 0090065 
JPEQ*LOKt2 YES-CONTINUE 
STOP*40 NO|-ERROR STOP 
ENTRK*O1 
BUP*LOK+3 CHK FUNC 73 B NOT Q 


PAGE 


ANDRESS 


01740 
01741 
01742 
01743 
01744 


01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 


01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 


01765 
01766 
01767 
01770 
01771 
01772 
01773 
01774 


01775 
01776 


0021 
INSTRUCT 
U4 00NG 
uu On07 
44 0010 
5072 a1 
36 7777 
12 0001 
02 4512 
61 1753 
61 1752 
5056 40 
5056 4o 
12 4510 
4u4 onnt 
12 1745 
44 1757 

ooo0ne 
61 1762 
5056 40 
12 1757 
71 onn1 
U4“ «1757 
02 4653 
61 1770 
34 1757 
32 5050 
12 00n1 
02 5050 
61 1775 
5056 40 
36 001 


73 «2nn.i 


ve-h 


SEQNO 


v01207 
001210 
001211 
001212 
001215 


001214 
001215 
001216 
001217 
V91220 
vOl2e21 
GOl222 
001225 


v0l1224 
001225 
001226 
001227 
001230 
001231 
VO1L2S5e2 
601235 


001234 
001235 
001236 
001237 
001240 
001241 
001242 
001243 


001244 
001245 


LABEL 


PAGE 


STATEMENT ADDRESS 
RJP*PICKAPLUM TEST BteJl NETWORK *#8H0 EVAL 01777 
STOP*4Q FRROR STOP 02000 
BUP*LOK+2 B EQ 0 02001 
UP*LOK+3  OK=CONTINUE 02002 
RJP*PICKAPLUM TEST Bt=1l NETWORK» BHO EVAL 02003 
STOP*4O NO=-ERROR STOP 02004 
BSK*ZEROQUNE CHK FUNC 56°B EQ O-AL NEQ@ Y 02005 
JP*LOK+3 OK=CONTINUE | 02006 
RUP*PICKAPLUM TEST 3+=1 NETWORK+ BHO EVAL 02007 
STOP*4O ERROR STOP 02019 
BSK*ZEROUNE B EQ Y-YES=CONTINUE 02011 
JP*LOK+2 02012 
JP*LOK+3 02013 
RJUP*PICKAPLUM TEST Bt=1 NETWORK+ BHO EVAL 02014 
STOP «yO NO|-ERROR STOP 02015 
ENT8K*01 B EQ 1 02014 
ISK*O1 Y NEQ 0 02017 
JP*LOKt+3 OK=CONTINUE 0202Nn 
RJUP*PICKAPLUM TEST 8t=1 NETWORK? BHO EVAL 02021 
STOP *40 ERROR STOP | 02022 
ISK*O1 Y EQ O-YES-CONTINUE 02023 
JP*LOK+2 02024 
JP*LOK+3 02025 
RUP*PICKAPLUM TEST 3t-1l NETWORK? BHO EVAL 02026 
STOP*4Q NO-ERROR STOP 02027 
ENTBK*OL 02030 
ENTAU*POSZERO 02031 
ENTAUB*UNESEPT CHK FUNC 11 0203? 
STRAU*WASTE 02033 
ENTAL*WASTE 02034 
CMAL4UNESEPT+#1 IS AL 377777 02035 


0N22 
INSTRUCT 
76 2717 
5056 40 
73 2003 
34 2005 
76 2717 
5056 40 
$6 5032 
34 e2nil 
76 2717 
5056 40 
56 5032 
34 2014 
34 2N16 
76 2717 
5056 40 
36 O0N1 
57 onnl 
34 2023 
76 2717 
5056 40 
57 o0n! 
34 2N?6 
34 230 
76 2717 
5056 4&0 
36 OON1 
10 4510 
11 4410 
46 4637 
12 4637 


02 4411 


SE-P7 


SEQNO 


UVO1246 
001247 
001250 
001251 
001252 


001253 
001254 
001255 
001256 
001257 
U01260 
001261 
00126e 


001263 
001264 
001265 
001266 
001267 
001270 
001271 
QO0127e 


001273 
001274 
001275 
OU1276 
v01277 
UYU1L300 
001301 
VUL30E 


001303 
UV01304 


LABEL 


STATEMENT 


JPEQ*LOK+7 
CMAL*UNE SEPT 
JPEQ*LOKt4 
JPALZ*LOKt2 
STOP*4&0 


STOP*4U 
STOP*4Q 
ENTALK*00 
ENTALB*UNESEPT 
CMAL*UNESEPT41 
JPEQ*LOK+4 
JPALZ*LOK+2 
STOP RED 


STOP*4uQ 
ENTBB*UNESEPT 
ENTAL*01 
CMAL*UNESEPT+4+1 
JPEQ*LOK+4 
JPALZ*LOK+2 
STOP *uO 
STUP*4Q 


ENTBRK*O1 
ENT3KB*01 
ENTAL*O1 
CMAL*ZERODEUX 
JPEQ*€LOKt+5 
CMAL*ZEROUNE 
JPEOQ*LOK+2 
STOP*4Q 


STGP*eu0 
SKP*Q4 


YES=CONT 

NO-DID 8 GET DROPPED 
YES=STOP 

NO-DID AU GET ENTERED 
ERROR STOP 


ERROR STOP 
ERROR STOP 


CHK FUNC 13 

IS AL 377777 
YES@CONTINUE 

DID AL GET ENTERED 
ERROR STOP 


ERROR STOP 
CHK FUNC 33 


IS AL 377777 
YES=CONTINUE 

DID B GET ENTERED 
ERROR STOP 

ERROR STOP 


CHK FUNC 37 
IS AL 000002 
YES-CONTINUE 
DID B CHANGE 
ERROR STOP 


ERROR STOP 
SET SKIP KEY 2 TO CYCLE TEST 


PAGE 


ADDRESS 


02036 
02037 
02040 


02041 


02042 


02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 


02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 


02068 
02064 
02065 
02066 
02067 
02070 
02071 
02072 


02073 
02074 


ON23 
INSTRUCT 
61 2045 
02 4410 
61 2044 
61 2043 
5056 40 
5056 40 
5056 40 
70 Onno 
13 4410 
02 4411 
61 2054 
61 2053 
5056 40 
5056 40 
33 4410 
12 0001 
02 4411 
61 29463 
61 2062 
5056 40 
5056 40 
36 Onn1 
37 6Onn1 
12 Oonni 
02 4uf5 
61 2en74 
02 5932 
61 297% 
5956 40 
5956 40 
5050 14 


LE-¥ 


SEQNO 


001344 
001345 
001346 
001347 
001350 


001351 
001352 
0013595 


001354 


001355 
001356 
001357 
001360 


001361 
U0136e 
001363 
001364% 
001365 
V01366 
001367 
001370 


001371 
001372 
001373 
GU1374 
001375 
001376 
VO01377 
QO140U 


VUL4UL 
VULYUe 


LABEL 


STATEMENT 


STOP *40 
STOP*4O 
ENTAL*ZEROSIX 
STRALB*01 
ENTAL*02 


CMAL*ZEROSIX 
JPEQ*LOK+5 
CMAL*ZEROQUNE 
JPEQ*LOKt2 
STOP*40 
STOP*4O 
ENTAU*ZERODEUX 
STRAUB*O1 


ENTAL*02 
CMAL*ZERODEUX 
JPEQ*LOK+t5 
CMAL*ZEROSIX 
JPEQ*LOK+2 
STOP*4O 

STOP *40 
CL*¥WASTE 


ENTAL*ZEROSEVEN 
~STRADR#*WASTE 


ENTAL*WASTE 
CMAL*TZERFSEV 
JPEG*LOK+7 
CMAL*ZEROSEVEN 
JPEQ*LOKt4 
JPALZ*LOK+2 


STOP *40 
STOP *GY 


ERROR STOP 
ERROR STOP 


CHK FUNC 45 

IS AL 6 
YES@-CONTINUE 

NO-DID VALUE CHANGE 


ERROR STOP 
ERROR STOP 


CHK FUNC 47 

IS AL 2 
YES-CONTINUE 

NO-DID VALUE CHANGE 


ERROR STOP 
ERROR STOP 


CHK FUNC 74 

IS AL 007777 
YES=CONTINUE 

NO-DIO ALL AL TRANSFER 
DID AL TRANSFER 


ERROR STOP 
ERROR STOP 


PAGE 


ADDRESS 


02134 
02155 
02136 
02137 
02140 


02141 
02142 
02143 
02144 
02145 
02146 
02147 
02150 


02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 


02161 
02162 
02163 
02164 
02165 
02166 
02167 
0217N 


02171 
02172 


0025 
INSTRUCT 
9056 40 
2056 40 
12 5950 
45S oon! 
12 a0ne2 
02 5950 
61 2147 
02 5032 
61 2146 
5056 40 
5056 40 
10 4466 
G7 Onn] 
12 O0n2 
02 4U66 
61 2160 
02 5050 
61 2157 
9056 40 
5056 40 
4O 4637 
le 5054 
74 4637 
12 4637 
02 5324 
61 2174 
02 5054 
61 2173 
61 2172 
9056 40 


5056 


40 


8E-P 


SEQ@NO 


001403 
601404 
001405 
U01406 
001407 


001410 
UO1411 
O01K12 
VO1413 
001414 
001415 
001416 
001417 


001420 
001421 
001422 
001423 
001424 
001425 
001426 
001427 


001430 
UV01431 
001432 
001433 
001434 
001435 
VO1436 
001437 


VO1440 
001441 


LABEL 


SWAT 


STATEMENT 


STOP *4Q 
ENTALK* 7777 
STRAL*WASUP 
ENTAL*80M20 
STRADR*WASUP 


ENTAL*wWASUP 
CMAL *BOM20 
JPEQ*LOK +2) 
STOP*40 
ENTBK*17 
ENTAL*UNEHUNTHO 
CMALB*CHAN 
JPEQ¥*¥LOK +6 


ENTBK*00 
CMALB*UNEHUNTHO 
JPEQ*LOKt2 

STOP *40 

STOP*40 
ENTAU*ZEROSEVEN 
ENTAL*SIXSEPT 
CMSK*UNESEPT 


JPEQ*LOK+2 
STOP*40 
ENT&K*01 
CMSKRB*TROISSEPRT 
JPEQ*LUK+2 
STOP*4u0 
ENTEK*O1 
JPB*SwAl 


STOP*4&0 
ENTAL*STOPIT 


ERROR STOP 


AL EQ 770000 


CHK FOR BITS DROPPED OR CONST 


IS AL 770000 
YES@CONTINUE 
NO-ERROR STOP 


CHK FUNC 03 

IS IT EQ-YES=CONTINUE 
IS 8B BAD 

ERROR STOP 

ERROR STOP 

CHK FUNC 06 


IS IT EQ@-YES=CONTINUE 


NO-ERROR STOP 


CHK FUNC 07 
IS IT EQ=YES-CONTINUE 
NO-ERROR STOP 


CHK FUNC 35 


ERROR STOP 
AL EQ 505640 


PAGE 


ADDRESS 


02173 
02174 
02175 
02176 
02177 


02200 
02201 
02202 
02203 
02204 
02205 
02206 
02207 


0221Nn 
02211 
02212 


02213 


02214 
02215 
02216 
02217 


02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 


0225n 
02231 


ON26 
INSTRUCT 
5056 490 
70 7777 
GG 4650 
12 Sun7 
74 4650 
12 4650 
02 54n7 
61 224 
5056 40 
36 0017 
12 4&5N4 
03 4445 
61 22715 
36 Onno 
03 4594 
61 2714 
5956 40 
5056 40 
10 554 
12 4460 
06 4410 
61 2222 
5056 4&0 
36 ONNL 
07 4un6 
61 22°96 
5056 4&0 
36 O01 
35 2230 
5056 4O 
12 4652 





6€-7 


SEQNO 


OO1442 
001443 
OUL444 
U01445 
UO1446 


001447 
001450 
QO1451 
001452 
001453 
001454 
001455 
G01456 


001457 
001460 
001461 
001462 
001463 
VO1L4Y64 
VO1465 
001466 


O01467 
001470 
001471 
001472 
001473 
GO1474 
GO01475 
OU1476 


UO1477 
001500 


LABEL 


BIEN 


PORTE 


SUPEREG 


STATEMENT 


STRAL*BIEN 
STRAL*PORTE 
IRJP*ALLON 
STOP*4O 
STGP ¥#KY 


ENTAL*BIEN 
CMAL*TRES 
JPEQ*KLOKt2 
STOUP*4V 
ENTBK*0O1 
TIRUPB*TRES 
STOP *4U 
STGP *4O 


ENTAL*PORTE 
CMAL*ROUGE 
JPEQ*kLOKt+2] 
STUP*4Q 
ENTAU*SEPTZERO 
ENTAL*ZEROSEPT 
ENTBK*QO1L 
SLSUB*ZEROSEPT 


CMAL¥NEGZERO 
JPEQ*LOKt2 
STOP*40 
SKP*04 
IJUP*CAMEO 
JP*CAME0DT1 
RESERV*O1 
O*0 


ENTAL*DOGSUP 
STRAL*®I FAULT 


PRESTORE STOPS 


CHK FUNC 30 
ERROR STOP 
ERROR STOP 


IS AL SwAI+2 
YES=CONTINUE 
NO-ERROR STOP 


CHK FUNC 31 
ERROR STOP 
ERROR STOP 


IS AL PORTE=1 
YES@=CONTINUE 
NO=ERROR STOP 
AU EQ 707070 
AL EQ 070707 


CHK FUNC 05 


IS AL 777777 

YES=CONTINUE 

NO*ERROR STOP 

SET SKIP KEY 2@ TO CYCLE TEST 
EXIT 

TO RECYCLE CAMEN 


ENTRANCE 


NOTIFY AFAULT 
WHICH ROUTINE 


PAGE 


ANDRESS 


02252 
02253 
02254 
022355 
02256 


02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 


02247 
02250 
02251 
02252 
02253 
02254 
02255 
02256 


02257 
02260 
02261 
02262 
02263 
02264 
02265 
022656 


02267 
02270 


0027 
INSTRUCT 
U4 2236 
Gu P2uNG 
30 646402 
5056 40 
5056 40 
12 2236 
02 4643 
61 2243 
5056 40 
36 O091 
31 4643 
5056 40 
5056 40 
12 2246 
02 4&4sus 
61 2253 
5956 40 
10 5967 
12 #4u4g 
36 O0N1 
05 4uug 
N2 4&Rlie 
61 2262 
5056 40 
5050 4 
55 2190 
34 21Nni 

NooNND 
00 )69oand 
12 4655 


44 4a ANY 


0%-F 


SEQNO 


V015u1 
001502 
601503 
001504 
001505 


001506 
001507 
001510 
001511 
001512 
001513 
001514 
001515 


001516 
001517 
001520 
001521 
001522 
001525 
001524 
001525 


001526 


0U1527 
001530 
0015351 
OU153e 
001533 
001534 
001535 


001536 
001537 


LABEL 


SR3U 


STATEMENT 


ENTALK*0077 
STRAL*WASTE 
ENTSR*10 

STRSR*¥WASTE 
ENTAL*WASTE 


CMAL*CHANtS 
JPEQ*SR30 

CMAL*SEVSEV 
JPEQ*SR30—1 


JPALNZ*LOK+7 


ENTSR¥*17 
STRSR*WASTE 
ENTAL*WASTE 


JPALNZ*LOK+2 


STUP*K0 
STOP*4Q 
STUP*40 
STOP*4Q 
ENTALK*7700 
STRAL* WASTE 
ENTSR*07 


STRSR*¥WASTE 
ENTAL*WASTE 
CMAL*SEVENT 
JPEQ*LOKt2? 
STOP*40 
ENTALK*00 
STRAL*WASTE 
ENTSR¥*30 


STRSR*WASTE 
ENTAL*WASTE 


IS AL 


ACTIVATE SR 
CHK IF ACT AND STORED CORRECT 


IS AL 10 

YES“CONTINUE 

NO}-CHK IF ANY SR STORED 

IF EQ@-STORE BAD 

NO-BITS PICKEP UP OR DROPPED 
ACTIVATE 7 

CHK SR TO D ENBL OR SR BIT 4 


ERROR STOP 
ERROR STOP 
ERROR STOP 
ERROR STOP 


777707 
YES CONTINUE 
NO ERROR STOP 


CL CONTENTS 
CHK SR BIT 5 


PAGE 


ADDRESS 


02271 
02272 
02273 
02274 
02275 


02276 
02277 
02300 
023501 
02302 
02303 
02304 
02305 


02306 
02307 
02310 
02311 
02312 
02313 
02314 
02315 


02316 
02317 
02320 
02321 
02322 
02323 
02524 
02325 


02326 
02327 


0028 
INSTRUCT 
70 On77 
44 4637 
5073 10 
75 4637 
12 4637 
02 4470 
61 2313 
02 5111 
61 2312 
63 2311 
5073 17 
75 4637 
12 4637 
63 2310 
5056 40 
5056 40 
5056 40 
5056 40 
70 7700 
44 4637 
5073 7 
75 4637 
12 4637 
02 4447 
61 2323 
5056 40 
70 onno 
44 4637 
5073 30 
75 4637 


12 4637 


Tv-P 


SEQNO 


001540 
001541 
001542 
001543 
001544 


001545 
001546 
001547 
001550 
001551 
001552 
001555 
001554 


001555 
001556 
001557 
001560 
001561 
001562 
001563 
UVO1564% 


001565 
001566 
001567 
001570 
001571 
G01572 
001573 
UVU1574 


V01575 
001576 


LABEL 


MEMZI 


REFILL 


PAGE 


STATEMENT ADDRESS 
CMAL*THIRTY IS AL 30 02330 
JPEG*LUKt2 YES-CONTINUE 02331 
STOP*4O NO=ERROR STOP 02332 
ENTICR*01 02333 
ENTBK*U03. 02334 
CL*WASTE CL CONTENTS 02335 
ENTICR*03 02336 
ENTBK#*17 02337 
ENTICR*03 DETERMINE HIGHEST RANGE NF MAIN 02340 
REMARK*MEMORY» 100Ke SOKe 20K OR 10Ke EXIT IF LESS. 
ENTALB*CHAN 02341 
ENTICR*02 02340 
STRAL*0002 02343 
ENTAL*SEPTZERO AL EQ 707070 02344 
STRALB*7776 | 02345 
ENTALB*7776 02346 
CMAL*SEPTZERO 02347 
JPEQ*LOK +6 02350 
ENTICR*03 02351 
SUP*LOKt1 02352 
ENTICR*01 02353 
BUP*xMEMZI=1 02354 
JP*MADEIT 02355 
ENTICR*01 02356 
ENTALB*ACKUP 02357 
STRAL*STACKUP 02360 
ENTICR*03 02361 
ENTALB*CHAN 02362 
STRAL*0002 STORE DIFF 3ANK SELECTIONS 02363 
CL*7774 02364 

ENTICR*02 02365 


: a a ee em 
~ weg ee 
nie ge neg a ge A re ig ine eg 


0029 
INSTRUCT 
02 4435 
61 2333 
5056 40 
5072 M1 
36 ONN3 
GO 4637 
5072 03 
36 0017 
5072 "3 
13 4465 
9072 Neo 
G4 One 
12 5047 
YS 7776 
13 7776 
02 59467 
61 2356 
5072 3 
73° 2353 
5072 "1 
73 2340 
34 2423 
5072 1 
13 4547 
GY 4B%O 
SO072 3 
13 4445 
44 one 
4QO 7774 


5072 "2 


en eee tie eS NT a Na <I  e 





CU-P 


SEQNO 


0U1577 
001600 
001601 
001602 
001603 


001604 
001605 
001606 
001607 
001610 
001611 
001612 
001613 


001614 
001615 
001616 
001617 
001620 
001621 
OU1l6ee 
001623 


0901624 
O0lo2s 
001626 
001627 
U01650 
001631 
00163c 
001633 


001634 
001635 


LABEL 


REJECTS 


BANDIT 


DEFEAT 


MADETT 


STATEMENT 


ENTAL*STACKED 
STRALB*7774 
ENTAL*UNSTACK 
STRALB*¥7775 
ENTAL*7774 


JPALZ¥*LOK+t+5 
ENTAL*WASTE 
SLSET*0002 
STRAL*WASTE 
JP*BANDIT 
ENTAL*REFRAD 
STRAL*0000 
TUP*STACKUP 


ENTICR*03 
BUP*LOKt1 
ENTICR*Q1 
BUP#REFILL=e2 
ENTAL*WASTE 
JPALZ*LOK+2 
STOP*4Q 
ENTR*CHANF+14 


ENTAL*TEAN 
STRALB*7774 
ENTSR*11 
ENTAL*7774 
ENTSR*00 
CMAL*TEAN 
JPEQ*MADETT 
STOP*4D 


SKP #04 
TUP*SUPEREG 


AL EQ 557775 
STORE OUTSIDE BANK 0 
AL EQ OOBANDIT 


Is BIT ere IN P 
YES“ERROR 

RECORD ERROR 

STURE ERROR RESULT 


AL EQ 34REJECTS 


CHK IF BANKS WERE ENTERED 
AL EQ 0 YES CONTINUE 
NO-ERROR STOP 

B EQ 010000 


AL EQ 070007 

STORE IN BANK 1 
ACTIVATE BANK 1 

CHECK SR TQ P ENABLES 


DEACTIVATE SR 


WAS CORRECT BANK REFERENCED 
YES GO TO END OF TEST 
ERROR STOP 


SET SKIO KEY 2 TO CYCLE TEST 
EXIT 


PAGE 


ADDRESS 


02366 
02367 
02370 
02371 
02372 


02373 
02374 
02375 
02376 
02377 
02400 
02401 
02402 


02403 
02404 
02405 
02406 
02407 
02410 
02411 
02412 


02413 
02414 
02415 
02416 
02417 
02420 
0242) 
02422 


02423 
02424 


0n30 
INSTRUCT 
12 4450 
45 7774 
12 4656 
45-7775 
12 7774 
61 2400 
12 4637 
51 onne2 
44 4637 
34 24n3 
12 4657 
44 00N0 
55 4630 
5072 93 
73 24un5 
5072 1 
73 2257 
12 4637 
61 2412 
5056 40 
32 4591 
12 4uny 
45 7774 
5073 11 
12 7774 
5073 10 
02 44uRy 
61 2423 
5056 40 
5050 ny 


55 22466 


eh-F 


SEQNO 


UV01636 
001637 
O0164U 
001641 
001642 


001643 
001644 
001645 
001646 
001647 
001656 
001651 
001652 


001653 
001654 
U01655 
001656 
001657 
0U1660 
001661 
U0166e2 


001663 
UU1664 
001665 
G01566 
001657 
001676 
001671 
001672 


0016753 
001674 


LABEL 


KAYADDER 


STATEMENT 
JP*SUPEREG+1 TO RECYCLE SUPEREG 
RESERV*O1 
0*0 ENTRANCE 
ENTICR*01 
ENT3K*0474 
CLB*Q0002 
BUP*LOK=1 
ENTALK*0013 
STRAL*0017 
ENTALK*0O1 
ENTAU*POSZERO 
SF *77 
STRAU*TOPCOUNT 
JPALZ*LOK+10 IS AL ZFRO-YES@CONT 
CMAL*ZEROUNE NO-IS AL oo0001 
JPEQ*LOKTS YES=-CONT 
ENTAU*0017 AU EQ SHIFT COUNT 
STUP*RO NO-ERROR STOP 
ENTAU*U017 
JPAUZ*SHIFLESS IS AU ZERO-YES-G0 TO SHIFT TEST 
STOP*4O NO-ERROR STOP 
ENTAL*TOPCOUNT 
CMAL*TWOHUNTHO IS AL 290000 
JPEQ*LOK+3 YES*CONT 
JPALZ*LOK"6 NOWIS AL ZERO-YES=CONT 
JP*LOK=-11 NO-GO TO STOP 
ENTAL*0017 AL EQ SHIFT COUNT 
CMAL *TREFIVE IS AL 35 
JPEQ*COUNTDOWSN 
CMAL* THIRTEEN IS AL 13 
JPES*LOK+2 YES@-CONT 


PAGE 


ADDRESS 


02425 
02426 
02427 
0243N 
02431 


02452 
02433 
02434 
02435 
02436 
02437 
0244N 
0244) 


02442 
02443 
02444 
02445 
02446 
02447 
O245N 
02451 


02452 
02453 
02454 
02455 
02456 
02457 
02460 
02461 


02462 
02463 


00%) 
INSTRUCT 
34 2267 

000000 
00 aono 
S072 O1 
36 O474 
G1 O00N2 
73 2432 
70 4 ON13 
4G 0017 
70) «6ONN1 
10 «64510 
S044 77 
46 4635 
61 2452 
02 5032 
61 2447 
10 OnN17 
5056 40 
10 Ont17 
640 2523 
5056 40 
12 4635 
02 45N5 
61 2457 
61 2u4u7 
34 2445 
12 ON17 
02 4436 
61 2477 
02 4434 


61 24665 


vy-¥ 


SE@QNO 


001675 
001676 
001677 
001700 


(001701 


001702 
001705 
001704 
001705 
001706 
001707 
001710 
001711 


001712 
001713 
001714 
001715 
001716 
001717 
001720 
001721 


001722 
001723 
001724 
001725 
001726 
001727 
001730 
001731 


001732 
001733 


LABEL 


COUNTDOWN 


TAKEOFF 


STATEMENT 


STOP*40 
ENTAL*0001 
JPALZ*LOKt+2 
STOP*4Q 
CL*0017 


ENTSK*0474 
ENTALB*000e 
JPALZ*LOK+2 
STOP*40 
BUP*LOK=3 
STOP*40 
ENTB*¥FACTOR 
ENTALK*0076 


STRAL*0002 
STRB*LOK+3 
ENTAU*UNEHUNTHO 
ENTALK*00 
000000 
ENTAL*0017 

CMAL *0002 
JPEQ*LOKt+2 


STOP*4&0 
ENTICR*02 
BUP*LOK+2 
JP*¥LOK+3 
ENTICR*01 
BJUP* TAKEOFF 
SKP*04 
IJP*KAYADDER 


JP#KAYADDERt1 
RESERV*01 


NO-ERROR STOP 


IS AL ZERO-YES-CONT 


NO-ERROR STOP 


IS AL ZERO~YES~CONT 


NO-ERROR STOP 
ARE ALL LOKS CHK=NO=CONT 


YES=ERROR STOP 


8B EQ 504477 


TEST ALL K COUNTS 


STORE INST 
AU EQ 100000 


IS COUNT OK 


YES@CONT 


NO-ERROR STOP 


IS B ZERO=NO=-CONT 
YES=GO TO END OF TEST 


IS B ZERO-NO-CONT 


SET SKIP KEY 2 TO CYCLE TEST 


YES~EXIT 


TO RECYCLE KAYADDER 


PAGE 


ADDRESS 


02464 
02465 
02466 
02467 
02470 


02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 


02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 


02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 


02521 
02522 


0n32 
INSTRUCT 
5056 40 
12 0001 
61 2470 
5056 40 
40 OO17 
36 O474 
13 oon2 
61 2475 
5056 40 
73 2ute 
5056 40 
32 &%&462 
70 0076 
44 0002 
42 2505 
10 «4sn4a 
70)» =6©0090 
0000n0 
12 0017 
02 o00n2 
61 2512 
5056 4&0 
5072 2 
73 2515 
34 2517 
5072 oO1 
73 2502 
5050 ny 
55 2427 
34 2430 


000000 


SbF 


SEQNO 


001734 
001735 
001736 
001737 
001740 


OO1741 
001742 
001745 
GO01744 


001745 
001746 
001747 


001750 
001751 
001752 
001753 


001754 
001755 
001756 


UVO1757 
001760 
GO1761 
UVO1762 
001753 
001754 
001765 
001766 


001767 
001770 


LABEL 


SHTIFLESS 


SHIFTER 


STATEMENT 


0*0 
ENTAL*QUTREZERO 
LSHAL *00 
JPALP*SHIFFY 
ENTALK*7777 


ENTAU*NEGZERO 
LSHAL*Q1 

JPAL Z*SHIFNO 
CPAL 


JPALZ*LOK+2 
STUP*40 
ENTAU*POSZERO 


LSHAL*01 
JPALZ*LOK+t5 
CPAL 
JPALZ*LOKt+2 


STOP*40 
STOP*&Q 
ENTAU*NEGZERG 


LSHAL*01 | 
JPALZ7*LOKt2 
STOP*40 

CPAY 
JPAUZ*LOKt+2) 
STUP*4&O 
ENTAL*SEPTZERN| 
LSHAL*11 


— CMAL*ZEROSEPT 


JPEQ*LUKt2 


ENTRANCE 

AL EQ 400000 

NO SHIFT 

DID IT SHIFT OR CHANGEYES=<CONT 


AU EQ 777777 

CHK CL wWeALL1 FeR CONST ENABLES 
AL EQ 0? YES=CONT 

NO=-CHK w BIT TO AL FOR CONST O-IN 


AL EQ 0? YES=CONT 
NO-ERROR STOP 
AU EQ 000000 


CHK W BIT TO AL FOR CONST 1-IN 

AL EQ 0? YES=CONT 

CHK FOR CONST INHIBIT OF CL w 

AL EQ 0? YES=CL wWeNO-CONST 1 ERRS 


NO-ERROR STOP 
YES@ERROR STOP 
AU EQ 777777 


CHK IF AU BIT 35 GOES To w BIT 1 
AL EQ 0? YES=CONT 

NO-ERROR STOP 

CHK IF AL BIT 17 GOES To x BIT 1 
AU EQ 0? YES=CONT 

NO-ERROR STOP 

AL E@ 707070 

CHK PROPER SHIFTING 


IS AL 070707 
YES=-CONT 


PAGE 


ADDRESS 


02523 
02524 
02525 
02526 
02527 


02530 
02531 
02532 


02533 
02554 
02535 
02536 


02557 
02540 
02541 


02542 
02543 
02544 
02545 


02546 
02547 
025590 
02551 
02552 
02553 
02554 
02555 


02556 
02557 


0N43 


INSTRUCT 


00 0nN90 
12 45096 
5086 900 
65 2701 
70 7777 


10 4512 
2046 01 
61 2711 


5061 0 
61 2536 
5056 40 
10 4510 


5046 O1 
61 2545 
5061 0 


61 2544 
2056 40 
5056 4&0 
10 4512 


S046 1 
61 2551 
5056 4&0 
5062 00 
69 2554 
5056 40 
12 5067 
5946 11 


02 4440 
61 2541 


9F-F 


SEQNO 


001771 
001772 
001775 
O01774 
001775 


001776 
UV01777 
002000 
002001 
002002 
002003 
002004 
002005 


002006 


002007 
002010 
002011 
002012 
002013 
002014 


002015 
Q02016 
002017 
UG2020 
002021 
002022 
v02025 
002024 


002025 
002026 


STATEMENT 


STOP*40 
ENTAU*NEGZERO 
ENTALK*7777 
RSHAL*O1 

CPAL 


JPALZ*LOKte2 
STOP *4O 
ENTALK*00 
ENTAU*POSZERDO 
RSHAL*01 
JPALZ*LOKt2 
STOP*40 
ENTAU*NEGZERQ 


RSHAL*Ol 


JPALZ*LOK+2 
STOP *4HO 
ENTAL*QUTREZERDO 
RSHAL*10 
CMAL*TSEVTZER 
JPEQ*LOKt2] 


STOP *4O 
ENTAU*NEGZERO 
LSHAU*«O1 

CPAU 
JPAUZ*LOKt2 
STOP *4Q 
LSHAU*01 
JPAUZ¥FLOK+2 


STOP *4&0 
ENTAU*SEPTZERDO 


NO-ERROR STOP 
AU EQ 777777 


CHK W BIT TO AL FOR CONST OIN 


AL EQ 0? YES=CONT 
NO-ERROR STOP 


AU EQ 000000 

CHK Ww BIT TO AL FOR CONST 1°IN 
AL EQ 0? YES=CONT 

NO-ERROR STOP 

AL EQ 777777 


CHK IF AU BIT 18 GOES To w BIT 17 


AL EQ 0? YES=CONT 
NO=-ERROR STOP 

AL EQ 400000 

CHK PROPER SHIFTING 
IS AL 777000 
YES=CONT 


NO-ERROR STOP 
AU EQ 777777 
CHK X BIT TO AU FOR IN ERRORS 


AY EQ 0? YES=CONT 

NOeWERROR STOP 

CHK X BIT TO AU FOR IN ERRORS 
AU EQ 0 YES CONT 


NO-ERROR STOP 
AU FQ 7070709 


PAGE 


ADDRESS 


02560 
02561 
02562 
02563 
02564 


02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 


02575 
02576 
02577 
02609 
02601 
02602 
02603 


02604 
02605 
02606 
02607 
02610 
02611 
02612 
02613 


02614 
02615 


0034 


INSTRUCT 


5056 40 
10 4512 
70 7777 
5042 ni 
5061 00 


61 2567 
5056 40 
70 0n90 
10 4510 
5942 a1 
61 2574 
5056 40 
10 4512 


5042 ni 
61 2690 
5056 40 
12 4596 
5042 10 
02 4443 
61 2695 


5056 40 
190 4512 
5045 Al 
5062 90 
60 2612 
5056 40 
5045 91 
60 2615 


5056 40 
190 567 


LE-v 


SEQNO 


VO2027 
002030 
VU2Z031 
002032 
VO2033 


002034 
0020355 
002036 
002037 
002040 
002041 
002042 
UO2043 


002044 
002045 
002046 
002047 
002050 
002051 
002052 
002053 


002054 
YO2055 
UV02056 
002057 
VO2060 
UO2061 
002062 
VO2U063 


UVO206% 
002055 


LABEL 


STATEMENT 


LSHAU*11 
STRAU*BINYARD 
ENTAL*¥BINYARD 
CMAL*ZEROSEPT 
JPEG*LOKtT2 


STOP*4O 
ENTAU*NEGZERQ 
RSHAU*U1 

CPAU 
JIPAUZ¥*LOKt+2 
STOP*4Q 
RSHAU*O1 
JPAUZ*LOK+2 


STOP*40 
ENTAU*QGUTREZERO 
RSHAU*10 
STRAUFBINYARD 
ENTAL*BINYARD 
CMAL*TSEVTZER 
JPEQ*LOKt2 
STUP*4Q 


ENTAU*TSEVTZER 
LSHA*QO1 
CMAL*TRANSFER 
JPEQ*LUKt+2) 
STOP*4O 
STRAU*BINYARD 
ENTAL*BINYARD 
CMAL*TRANSFER 


— JPEQ*LOKtF2 


STUP*4G 


CHK PROPER SHIFTING 


IS AL 070707 


YES=CONT 


NO-ERROR STOP 
AU EQ 777777 
CHK X BIT TO AU FOR IN ERRORS 


AU EQ 0? YES=CONT 

NO-ERROR STOP 

CHK X BIT TO AU FOR IN ERRORS 
AU EQ 0? YES=CONT 


NO*ERROR STOP 
AU EQ 400000 
CHK PROPER SHIFTING 


IS AL 777000 
YES=CONT 
NO=-ERROR STOP 


AU EQ 777000 

CHK AL BIT 17 Tn X18=-AU 35 To wo 
TIS AL 776001 

YES@CONT 

NO-ERROR STOP 


IS AL 776001 


YES-CONT 
NO*ERROR STOP 


PAGE 


ADDRESS 


02616 
02617 
02620 
02621 
02622 


02623 
02624 
02625 
02626 
02627 
02630 
02631 
026352 


02633 
02654 
02635 
02636 
02637 
02640 
02641 
02642 


02643 
02644 
02645 
02646 
02647 
0265N 
02651 
02652 


02653 
02654 


0035 
INSTRUCT 
5045 11 
46 4611 
12 4611 
02 44no 
61 2624 
5056 40 
10 4512 
5041 O41 
5062 no 
60 2631 
5056 40 
5041 o1 
60 2634 
5056 40 
10 45N6 
5041 10 
46 4611 
12 4611 
02 4443 
61 2643 
5056 40 
10 4443 
5047 91 
02 4461 
61 2650 
5056 40 
46-4611 
12 461i 
02 44st 
61 2655 


5056 40 


84-4 


SEQNO 


UI2066 
UV02067 
002070 
002071 
U02072 


002075 
VO2074 
002075 
002076 
002077 
002100 
002101 


002102 — 


002103 
002104 
002105 
002106 
002107 
002110 
002111 
002112 


002113 
002114 
002115 
O02116 
002117 
002120 
vd2121 
002122 


002123 
vO2124 


LABEL 


SHIFFY 


SHIFNC 


ALLRIGHT 


STATEMENT 


ENTAU*ZEROSEPT AU EQ 070707 


ENTAL*ZEROSEPT AL EQ 070707 

LSHA*03 CHK PROPER SHIFTING 
CMAL*¥SEPTZERQ IS AL 707070 
JPEQ*LOKt2] YES=-CONT 

~STOP*4O | | NO-ERROR STOP 
STRAU*BINYARD 

ENTAL*BINYARD 

CMAL*SEPTZERO IS AL 707070 
JPEQ*LOKt2 YES-CONT 

STOP *40 NO-ERROR STOP 

RSHA*03 CHK AU 8IT 18 To w BIT 17 
CMAL*ZEROSEPT IS AL 070707 
JPEQ*LOK+2 YES-CONT 

STOP*40 NO-ERROR STOP 
STRAU*BINYARD 

ENTAL*S3INYARD 

CMAL*TRANSIT IS AL 770707 
JPEQ*¥ALLRIGHT=1 YES"G0 TEST Bt=1°R#HD 
STOP *«40 NO-ERROR STOP 
JPALZ*LOK+7 AL EQ 0? YES=SHIFT IMPROPER 
ENTRK*¥21 

CMALB*CHAN IS MORE THAN 1 RIT SET 
JPEQ*LOK+3 YES=@SHIFT IMPROPER 
BUP*LOK*2 

JP*SHIFTER NO-CHK vw BIT TO AL 
STOP*4O ERROR STOP 

STOP *4O0 ERROR STOP 

STOP*4&0 ERROR STOP 
RUP*PICKAPLUM TEST 8+-1 NETWORK+ BHO EVAL 


SKP*04 SET SKIP KEY 2 TO CYCLE TEST 


PAGE 


ADDRESS 


02655 
02656 
02657 
02660 
N2661 


02662 
02663 
02664 
02665 
02666 
02667 
02670 
02671 


02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 


02702 
02703 


02704 


02705 
02706 
02707 
02710 
02711 


02712 
02713 


OnN36 
INSTRUCT 
190 4u4go 
12 =44y4nn 
SOR7 3 
02 5967 
61 2663 
5056 40 
46 461i! 
12 4611 
02 5067 
61 2670 
5056 49 
5043 ”3 
02 4u4yn 
61 2674 
5056 40 
“6 YELL 
12 =64s6il 
02 4u4ue 
61 2712 
5056 40 
61 2710 
36 0071 
93 4465 
61 2707 
73 2703 
34 2527 
5055 40 
5056 40 
5056 40 
76 2717 
5050 4 


67-7 


SEQNO 


QU2125 
002126 
002127 
002130 
002131 


002132 
002135 
UVV2134% 
002135 
002136 
002137 
G02140 
002141 


002142 
U02143 
O02144 
002145 
002146 
002147 
002150 
002151 


002152 
002153 
U02154 
Y02155 
002156 
002157 
U02160 
002161 


002162 
002163 


LABEL 


PICKAPLUM 


PLUM 


PLUM1 


STATEMENT 


IUP*SHIFLESS EXIT 

JP¥ESHIFLESSt#1 TO RECYCLE SHIFLESS 
RESERV*01 

0*0 ENTRY 
ENTAL*PICKAPLUM DISPLAY ENTRY 
STRAL*IFAULT ON C 

ENTAU*SFe 177777 

ENTAL*PENNYP 20000n 

STRAU*TRAP CHECK PLUS AND MINUS NETWORK 
ENTB« TRAP 
BSK*NZRO 
JP*LOK+t3 
RIUP*XDISPOC 


PATTERN 


STOP*4Q 
STRB*CREEK 
CMAL*¥*¥CREEK IS INCREMENT CORRECT? 
JPEQ*¥LOK+4 

ENTAU*CREEK 

RJUP*DISPOC 
STOP*4Q 
BUP*LOKt3 


ERROR STOP 


ERROR STOP 
CHECK B EQUAL ZERO INPUT PINS 


RUP*DISPOC 
STOP*4y 
RSHAU*O1 
RSHAL*01 
JPALNZ*PLUM 
ENTAU* WOLF 
ENTAL*WOLF 
CPA 


ERROR STOP 


ARE PATTERNS COMPLETE? 
377777 
377777 


STRAUSTRAP 
ENT3*«TRAP 


PAGE 


ADDRESS 


02714 
02715 
02716 
02717 
02720 


02721 
02722 
02723 


02724 


02725 
02726 
02727 
02730 


02731 
02732 
02733 
02734 
02735 
02736 
02737 
0274N 


02741 
02742 
02743 
02744 
02745 
02746 
02747 
02750 


02751 
02752 


0N%7 
INSTRUCT 
55 2523 
34 2524 
o000nND 
00 onano 
12 2717 
GQ“ UA 
19 3n14 
12 3n15 
46 3916 
32 3016 
56 4445 
34 22732 
76 4&Y374 
5056 40 
42 3017 
02 3017 
61 2740 
10 3017 
76 4&374 
5056 40 
73 2743 
76 4374 
5955 4&0 
5041 o1 
5042 ni 
63 2724 
10 3920 
12 3020 
5062 0 
46 3016 


32 316 


OS-?P 


SEQNO 


UV21604 
U0E165 
0U2Z166 
002167 
002170 


002171 
002172 
002175 
002174 
002175 
002176 
002177 
uG2200 


002201 
002202 
0022035 
002204 
002205 
UU2206 
002207 
002210 


002211 
002212 
VO2215 
002214 
002215 
002216 
GU2217 
002220 


U0e221 
U0222e 


LABEL 


STATEMENT 
BUP*tLOK+S DECREMENT PATTER 
RUP*DISPOC 
STOP*40 ERROR STOP 
STRB*CREEK 
CMAL *CREEK TIS DECREWMENT CORRECT 
JPEQ*LOKt+4 
ENTAU*CREEK 
RJP*DISPOC 
STOP*4Q ERROR STOP 
CPAU 
RSHA*O1 
JPAUZ*LOK+2 ARE PATTERNS COMPLETE? 
JP*PLUMI 
BSK*HALF INCREMENT 777776 
STRB*CREEK 777776 
ENTAL*NEGILP 
CMAL *CREEK 
JPEQ*LOK+3 
RUP*xDISPOC 
STOP*4&0 ERROR STOP 
ENTAL*BEANP AL To 400000 
ENTS *woOLlF B TO 377777 
BSK#NZrnO0 INCREMENT 8 
STR34 TRAP 
CMAL* TRAP IS PATTERN CORRECT? | 
JPEQ* LOK+3 
RIJP*DISPOC 
STOP *4QY ERROR STOP 
JPFLOK+3 
RUP*DISPOC 
STOP *40 ERROR STOP 


PAGE 


ADDRESS 


02753 
02754 
02755 
02756 
02757 


02760 
02761 
02762 
02763 
02764 
02765 
02766 
02767 


02770 
02771 
02772 
02773 
02774 
02775 
02776 
02777 


03000 
03001 
03002 
03003 
03004 
03005 
03006 
03007 


03010 
03011 


0038 
INSTRUCT 
73 2756 
76 4374 
[9056 40 
42 3017 
02 3017 
61 2764 
190 3017 
76 4374 
9056 40 
5062 0 
2043 O1 
60 2770 
34 2750 
56 3923 
42 3017 
12 3021 
02 3017 
61 2777 
76 4374 
5056 40 
12 3022 
32 3920 
56 444s 
42 3N16 
02 3016 
61 3097 
76 4374 
5056 40 
34 3012 
76 4274 


5956 40 


IS-P 


SEQNO 


002223 
VO02224 
V02225 
002226 
UO222e7 


002230 
002231 
002232 
002233 
002234 
002235 
002236 
002237 


002240 
002241 
002242 
VO2243 
UVO2244 
002245 
002246 
002247 


QU225U 
UV02251 
002252 
002253 
002254 
002255 
002256 
002257 


UO2260 
vO2261 


LABEL 


SF2 
PENiNYP 
TRAP 


CREEK 
WOLF 
NEGIP 

BE ANP 
HALF 
ADDSUBAD 


TOSSUP 


STATEMENT 
IJUP*PICKAPLUM EXIT 
RESERV*01 
177777 
200000 
vooocOdOd 
000000 
377777 
777776 
GOO000Q 
525252 
0*0 ENTRANCE 
ENTALK*O0 
ADDAL*¥NEGZERO CHK QUTPUTS OF HS-BORROW 
REMARK AND DIFF GEN=-BORROW ENABLES= 
REMARK INPUTS TO BORROW AND DIFF GEN 
STRAL*SCARF STORE RESULT 1 
LSHA*22 
ENTALK*7777 
ADDAL*POSZERO CHK ENABLE INPUTS 
STRAL*SCARFHI1 STORE RESULT 2 
JPALZ*LOK+4 IS AL ZEROmYES=“CONT 
JPAUZ*LOK+6 NO#IS AU ZERO-YES*CONT 
ENTAU*SCARF NO-RESULT 1 AND 2 BAD 
STOP*«4QO ERROR STOP 
JPAUZ*TOSSUP IS AU ZERO-YES=80TH RESULTS OK 
ENTAL*SCARF NOeRESULT 1 BAD 
STUP*YED ERROR STOP 
ENTAL*SCARFT1 RESULT 2 BAD 
STOP *40 ERROR STOP 
ENTAU*NEGZERO 
ENTALK*7777 


PAGE 


ADDRESS 


03012 
03013 
03014 
03015 
03016 


03017 
03020 
~—603021 
03022 
03023 
03024 
03025 
03026 


03027 
03050 
03031 
03032 
03053 
03034 


03035 
030356 
03037 
03040 
03041 
03042 
03043 
03044 


03045 
ON3046 


0N39 


INSTRUCT 


55 2717 
000n0n0 
177777 
200000 
000000 


000000 
377777 
777776 
GO0N00 
525752 
00 0000 
70 8 OnNO 
14 4512 


GG 4533 
5047 22 
70 7777 
14 &510 
GG 4534 
61 3040 


60 3083 
10 4533 
5056 40 
60 3045 
12 45%33 
5056 40 
12 4534 
5056 40 


10 4512 
70 7777 


GS-P 


Sf QNO 


002262 
002263 
002264 
002265 
602266 


002267 
002270 
UVO2271 
002272 
002273 
002274 
002275 
002276 


002277 
UO2300 
002301 
0023502 
VO02303 
002304 
UVUV2305 
002306 


002307 
002310 
002311 
O0231e 
002313 
602314 
UV02315 
UV02316 


002317 
OU2326U 


LABEL 


STATEMENT 
ADDAL*NEGZERO CHECK OUTPUTS OF HS=RBORROW 
REMARK AND DIFF GEN 
SF¥*4ay 
ENTAL*0017 AL EQ SHIFT COUNT 
JPALZ*LOK+2 IS AL ZERO-YES-RESULT 0K 
STUP*40 NO-ERROR STOP 
ENTALK*00 | 
ADDAL*POSZERO CHK EACH BIT FoR BORROW GEN 
UPALZ*LOK+2 IS AL ZERO=YES=RESUJLT OK 
STOP*4G4O NO*#ERROR STOP 
ENTAU*TSEVTZER SET AU TO 777000 
ENTAL*SEPTZERO SET AL TO 707070 
ADDAL*SEPTZERO CHK BORROW SECTIONS 
LSHAL*02 SHIFT THE RESULT 
LSHA*03 SO AL EQ NEG ZERO 
LSHAL*U03 AND AU E@ POS ZERO 
LSHA*03 
LSHAL*03 
LSHA*03 
JPAUZ*#LOK+2 IS AU ZERO“YES=CONT 
STOP*40 NO=ERROR STOP 
ENTAU*NEGZERO 
SF*u4 CK AL RESULT 
ENTAL*0017 AL EQ SHIFT COUNT 
JPALZ2*LOK+2 IS AL ZERO-YES-RESULT nx 
STOP*40 NO-ERROR STOP 
ENTAU*TSEVTZER SET AU TO 777000 
ENTAL*ZEROSEPT SET AL TO 070707 


ADDAL*ZEROSEPT CHK BORROW SECTIONS 


LSHAL*05 
LSHA*03 


SHIFT THE RESULT 
SO AL EQ@ NEG ZERO 


PAGE 


ADDRESS 


03047 


03050 
03051 
03052 


03053 
03054 
03055 
03056 
03057 
03060 
03061 
03062 


03063 
03064 
03065 
03066 
03067 
03070 
03071 
03072 


03073 
03074 
03075 
03076 
03077 
03100 
03101 
03102 


03103 
03104 


0040 


INSTRUCT 


14 4512 


S044 44 
12 O17 
61 3054 


5056 40 
70 0000 
14 4510 
61 3060 
5056 40 
10 4443 
12 5067 
14 5067 


SO46 2 
S047 3 
S046 3 
5047 93 
5046 3 
5047 93 
60 3073 
5056 40 


10 4512 
5044 4y 
12 0017 
61 31N0 
50565 40 
10 4443 
12 444o 
14 4440 


5046 95 
5047 3 


ES-P 


SEQNO 


002321 
V0232e 
002325 
002324 
002325 


002326 
002327 
002330 
002331 
002332 
002333 
002334 
002335 


002336 
002337 
002340 
O02341 
002342 
0023543 
002344 
UU2345 


QU2346 
002347 
UO02350 
OU2351 
0023552 
002352 
002354 
VO023555 


UN2356 
UV02357 


LASEL 


STATEMENT 
LSHAL*03 AND AU EQ PQS ZERO 
LSHA*03 
LSHAL*03 
LSHA*03 


JPAUZ*LOKt2 IS AU ZERO-YES=CONT 
ENTAL¥*¥NEGZERO 
JP*ELOK+1 
ENTAU*NEGZERO 
GF #uy CK AL RESULT 

ENTAL*0017 AL EQ SHIFT COUNT 
JPALZ*LOK+2 IS AL ZERO-YES@RESULT OK 
STOP ¥*4UO NO-ERROR STOP 
ENTAU*TROISCING SET AU TO 353535 


SET AL NEG ZERO 


AU EQ 777777 


ENTAL*TROISCING SET AL TO 353535 
ADDA*QUTREDEUX ADD TO 424242 4oauaye 
JPAL Z*LOK+2 IS AL ZERO~YES=CONT 

STOP*4Q NO-ERROR STOP 

JPAUZ*LOK+2 IS AU ZERO~YES=CONT 

STOP*4Q NO-ERROR STOP 

SKPNOV* CL OVERFLOW DESTGNATOR 
JP¥LOKt1 


SKPOV DOES IT SKIP 


SKPNOV DOES IT SKIP 

STOP*4O YES=ERROR STOP 

SKPNBO*LOK+t+2 

STOP *4O ERROR STOP 

ENTAU*POSZERO 

ENTAL*SIXSEPT SET AL TO 677777 

ENTAK 00 

ADDAB*UNESEPT ADD TO 177777 377777 
CMAL *Z7EROSEVEN IS AL SUM CORRECT 


PAGE 


ADDRESS 


03105 
03106 
03107 
03110 
03111 


03112 
03113 
03114 
03115 
03116 
03117 
N3120n 
03121 


0312? 
03123 
03124 
03125 
03126 
03127 
03130 
03131 


03132 
031353 
03134 
03135 
03136 
03137 
03140 
03141 


03140 
03143 


0041 


INSTRUCT 


5046 3 
5047 3 
S046 NS 
5047 03 
60 3113 


12 4512 
34 3114 
10 4512 
2044 44 
le 0On17 
61 3121 
50564 40 
10 44ule 


12 4ulo 
20 4414 
61 3126 
5056 40 
60 3130 
5056 40 
59053 0 
34 3132 


5052 00 
5053 90 
9056 40 
5051 37 


¥S-F 


SEQNO 


002360 
002361 
002362 
002363 
002364 


002365 
002366 
002367 
002370 
002371 
002372 
002373 
002374 


002375 
002376 
002377 
002400 
002401 
002402 
002405 
002404 


002405 
002406 
002407 
002410 
002411 
002412 
002413 
O02414 


002415 
002416 


LABEL 


STATEMENT 


JPEQ*LOKt2 
STOP*4u0 
LSHA*22 
CMAL*QUTREZERO IS AU SUM CORRECT 
JPEQ*LOK+2 YES=CONT 


YES=CONT 
NO*ERROR STOP 


STOP *40 NO=-ERROR STOP 
SKPOV DOES IT SKIP 


STOP*40 NO-ERROR STOP 

SKPNOV DOES IT SKIP 

STOP*40 NO-ERROR STOP 

SKPNBO*00 CHK IF IT SKIPS 
JP*LOK+2 NO OK 

STOP*4O NO ERROR STOP 
ENTAL*TROISCING SET AL TO 353535 
SUBALB*TROISCING 

CMAL*POSZERO IS SUB CORRECT 
UPEQ*LOK+2  YES=CONT 

STOP*4O  NO=ERROR STOP 
ENTAL*¥QUTREDEUX SET AL TO 424242 
SUBAL*QUTREDEUX 

CMAL*POSZERO IS SUB CORRECT 
UPEQG*LOK+2 YES=CONT 

STOP*4Q NO-ERROR STOP 
ENTAL*TROISCING@ SET AL TO 353535 
ADDALB*QUTREDEUX 

CMAL*POSZERO IS SUM CORRECT 
JPEQ*LOK+2 YES=CONT 

STOP*40 NO=ERROR STOP 
ENTAL*ZEROSEVEN SET AL TO 077777 
ENTAU*QUTREZERO SET AU TO 4On00N 
SUBAB*UNESEPT SUB WITH 177777 377777 


PAGE 


ADDRESS 


03144 
03145 
03146 
03147 
03150 


03151 
03152 
03153 
03154 
03155 
03156 
03157 


03160 


03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 


03171 
03172 
03173 
03174 
03175 
03176 
03177 
03200 


03201 
03202 


0042 
INSTRUCT 
61 3146 
5056 40 
S047 22 
02 4596 
61 3152 
5056 40 
5052 00 
5056 40 
5053 900 
5056 40 
5051 90 
34 3161 
9056 40 
12 4ule 
17 Yule 
02 4510 
61 3166 
5956 40 
12 444 
16 4414 
02 4510 
61 3173 
9055 40 
12 4412 
15 4414 
02 4510 
61 32n0 
5056 40 
12 5054 
10 45nN6 


23 4410 


co-P 


SEQNO 


002417 
002420 
002421 
002422 
OO2K23 


002424 
002425 
002426 
002427 
002430 
002431 
002432 
002433 


002434 
002435 
002436 
002437 
002440 
V02441 
DO2442 
OU244S 


002444 
O02445 
UO2K46 
002447 
002450 
OU2451 
002452 
002453 


002454 
002455 


LABEL 


MUDDIVE 


STATEMENT 
CMAL*SEVENZERDO 
JPEQ*LOKt2 YES=-CONT 
STOP*40 NO=ERROR STOP 
LSHA*22 
CMAL *POSZERO IS AU SUB CORRECT 
JPEQ*LOK+F2 YES=CONT 
STOP*4U NO=ERROR STOP 
SUBA*UNESEPT SUB WITH 177777 377777 
CMAL*SIXZERUNE TS AL 600001 
JPEQ*LOK+2]) YES=CONT \ 
STUP*4O NO-ERROR STOP 
LSHA*22 
CMAL*TROISZERO IS AL 300000 
JPEQ*LOKte2 YES=CONT 
STOP*40 NO-ERROR STOP 
SKPOV*00 CL GVERFLOW DESIGNATOR 
JP*LOK+1 
SKP*04 SET SKIP KEY 2 TO CYCLE TEST 
TUP*ADDSUBAD EXIT 
JP*ADDSUBADt1 TO RECYCLE ADDSURBAD 
RESERV*O01 
0*0 ENTRANCE 
ENTALK*00 
STRAL*BENERROR 
ENTALK*0O1 
STRAL*BENCOUNT 
ENTAL*MULTSEL AL EQ 25 COMBINE 
STRAL*®TRYIT STORE MUL INST 
ENTICR*03 
ENT3SK*25 
ENTICR*04 


PAGE 


ADDRESS 


03203 
03204 
03205 
03206 
03207 


03210 
03211 
03212 
03213 
03214 
03215 
03216 
03217 


03220 
03221 
03222 
03223 
03224 
03225 
03226 
03227 


03230 
03251 
03252 
03233 
03254 
03255 
03236 
03237 


03240 
03241 


O43 
INSTRUCT 
02 4432 
61 3206 
5056 40 
5087 22 
02 4510 
61 3212 
5056 40 
22 410 
02 4430 
61 3216 
5056 40 
5047 22 
02 4464 
61 32232 
5056 40 
5052 00 
34 3224 
5050 4 
55 3024 
34 3025 

o00nn00 
00 d0000 
70 «=6©0nn0 
Gu“ s4KN7 
70 «60001 
U4 4610 
12 4662 
GE 3263 
5072 93 
36 0023 


5972 O44 


99-7 


SEQNO 


002456 
002457 
002460 
Ov2461 
002462 


002463 


002464 
002465 
002466 
002467 
002470 
002471 
DO024K72 


0024873 
002474 
002475 
002476 
002477 
002500 
002501 
002502 


002503 
002504 
002505 
002506 
002507 
002510 
002511 
002512 


002513 
G02514 


LABEL 


SECONDS 


REQUE 


WATCHIT 


TRYIT 


STATEMENT 


ENTBK*01 
ENTICR*05 
ENTS3K*07 
ENTAL*GOUP 
STRAL*GROUP 


ENTAL*GOUP2 
STRAL*COMBINE 
ENTAL*GOUP3 
STRAL*COMBINE+1 
ENTICR*0O1 
ENTBK*0O1 
ENTICR*O2 
ENTBK*01 


ENTICR*01 


ENTAUB*GROUP VAR PATS TO CHECK INST 


ENTALB*GROUP VAR PATS TO CHECK INST 
ENTICR*02 MUL AND DIV INSTS CHECKED 
000000 
ENTICR*03 
CMALB*TESTALL IS AL RESULT OK 
JPEQ*LOK+t2 YES=CONT 
JP*LOK+5 NO-RECORD ERROR 
BUP*LOKte IS B ZERO NO=CONT 
JP*COMMAND YES@CHECK REMAINING INSTS 
LSHA*22 CHECK AU RESULT 
CMALB*TESTALL IS AU RESULT OK 
JPEQX*LOKtS YES CONT 
ENTAL*BENERROR NO*RECORD ERROR 
SLSET*#3ENCOUNT SET BIT POS ERROR 
LSHAL*01 

STORE ERROR COUNT 


STRAL*BENERROR 


PAGE 


ADDRESS 


03242 
03243 
03244 
03245 
03246 


03247 
03250 
03251 
03252 
03253 
03254 
03255 
03256 


03257 
03260 
03261 
03262 
03263 
03264 
03265 
03266 


03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 


03277 
03300 


0044 
INSTRUCT 
36 0001 
S072 05 
36 0On07 
12 4456 
GG 4535 
12 4457 
4G 4537 
12 4454 
UH 4540 
5072 O1 
36 0001 
5072 902 
36 O0001 
9072 O1 
11 4535 
13 4535 
5072 2 

000000 
5072 3 
03 45907 
61 3270 
34 3274 
73 3272 
34 3316 
S047 22 
05 4507 
61 3391 
12 4607 
51 4610 
5046 On} 


44 46N7 


LG-¥F 


SEQNO 


002515 
002516 
002517 
002520 
002521 


002522 
002525 
002524 
002525 
002526 
602527 
002530 
002531 


U02532 
002535 
002534 
002535 
002536 
002537 
002540 
002541 


002542 
002545 
002544 
002545 
002545 
002547 
002550 
002551 


00255e 
002555 


LABEL 


COMMAND 


DEMAND 


STATEMENT 


BUP*LOKt2 
JP*DEMAND 
ENTICR*05 
BUP*LOKt2 
JP*COMMAND 


DECREMENT 8B 


ENTICR*02 
BUP*wATCHIT 
ENTS8K*01 
ENTICR*01 
BUP*wATCHIT 
ENTAL*DIVSEL 
STRAL*TRYIT 
JP#SECONDS 


IS B ZERO=NO-CONT 
YES@CHANGE 8B 


IS B ZERO=NO=-CONT 
YES=CHECK DIV INST 
STORE 27 COMBINE INST 


ENTICR*04 
BJUP*LOKt2 

JP* DEMAND 
ENTALK*7777 
STRAL*®GROUP 
STRAL*COMBINE41 
ENTALK*00 
STRAL*COMBINE 


ENTICR*05 

ENT3K*01 

JP*REDUE 

ENTAL*BENERROR AL EQ ERROR COUNT 
JPALZ*LOK+t+2 IS AL ZERO-YES=-CONT 
STOP*4QO NOeERRQOR STOP 

ENT8K*uUl 

ENTAUB*ROUND 


ENTALK*70 


RND CHECK RND INST 


PAGE 


ADDRESS 


03501 
03302 
03303 
03304 
03305 


03306 
03307 
033190 
03311 
03312 
03313 
03314 
03315 


03316 
03317 
03320 
03321 
03322 
03323 
03524 
03325 


03526 
03527 
03330 
03351 
03352 
033353 
03334 
03355 


03336 
033357 


0045 
INSTRUCT 
73 33093 
34 3331 
5072 05 
73 = =3396 
34 3316 
5072 02 
73 3257 
36 0001 
5072 Ol 
73 3257 
12 4663 
GQ = 3263 
34 3253 
5072 4 
73° 3321 
34 3331 
70 4 47777 
44 4535 
44 4540 
70 «Onno 
44 4537 
9072 95 
36 ONNI 
34 3255 
12 4697 
61 3334 
5056 40 
36 ONA1 
11 4541 
70 0070 


5060 10 





8S-F 


SEQNO 


002554 
002555 
002555 
002557 
002560 


002561 
002562 
002563 
002564 
602565 
002566 
002567 
002570 


002571 
002572 
002575 
002574 
002575 
002576 
002577 
002600 


002601 
002602 
002605 
002604 
002605 
002606 
002607 
002610 


002611 
002612 


LABEL 


PARITY 


ERSTE 


STATEMENT 
CMALB*KNOCKOUT IS RESULT 0x 
JPEQ*LOK+2 YES=CONT 
STOP*4Q NO-ERROR STOP 
BUP*LOK=6 ARE ALL PATS CHK=NO=-CONT 
ENTALK*03 YES@CHECK NEw INSTS 
MULAL*ZEROQDEUX MUL BY 000002 
CMAL*ZEROSIX IS RESULT OK 
JPEQ*LOKt2 YES=CONT 
STOP*4O NO-ERROR STOP 
ENTAU*ZERODEUX AU EQ 000002 
ENTAL*ZEROSIX AL EQ 000006 
DIVA*ZERODEUX DIV BY 000002 
CMAL*NEGZERO IS AL RESULT OK 
JPEQ*LOKt2 YES=CONT 
STOP*4U NO-ERROR STOP 
LSHA*22 
CMAL*®CHANtS IS AU RESULT OK 
JPEQ*LOKt2 YES=G0 TO END OF TEST 
STOP*4Q NO-ERROR STOP 
SKP*04 SET SKIP KEY 2 TO CYCLE TEST 
TUP*MUDDIVE EXIT 
JP*MUDDIVEF1L TO RECYCLE MUDDIVE 
RESERV*01 
0*0 
CL¥EIN 
CL¥Z2wWETI 
ENTICR*1 
ENT8K*15 
ENTAUeNZRO 
ENTALB*EVEN EVEN PATTERNS 
SKPEVN NO ERROR 


PAGE 


ADDRESS 


03340 
03341 
03342 
03343 
03344 


03345 
03346 
03347 
03350 
03351 
03352 
03353 
03354 


03355 


03356 


03357 
03560 
03361 
03362 
03363 
03364 


03365 
033566 
03367 


03370 


03371 
03372 
03373 
03374 


03375 
03376 


0046 
INSTRUCT 
03 4543 
61 3343 
5056 40 
73 «3335 
70 «60003 
24 4466 
02 5050 
61 3351 
5056 40 
10 4466 
12 5050 
26 4466 
02 4512 
61 3357 
59056 40 
5047 22 
02 4470 
61 3363 
5056 40 
9050 94 
55 3230 
34 3231 

000000 
00 ono 
40 4617 
4O 4641 
5072 O1 
36 0015 
10 4445 
13 4553 


59055 990 


69-7 


SEQNO 


002613 
002614 
002615 
002616 
002617 


002620 
002621 
002622 
002623 
002624 
002625 
002626 
002627 


002630 
002631 
V0263e 
002635 
U02634 
002655 
002636 
002637 


002640 
002641 
002642 
002645 
002644 
002645 
002646 
002647 


002650 
002651 


LABEL 


CWEITE 


STATEMENT 


JP*LOKt3 
ENTAL*EIN 
JP*LOK+3 
ENTAL*®EIN 
ADDALK*1 


ERROR DETECTED 


SET BIT FOR ERROR 


LSHAL*¥*1 
STRAL*EIN 
BUP*ERSTE 
ENTBK*14 
ENTALB*CODD 
SKPODD 
JP*LOKtS 
ENTAL*2ZWET 


ODD PATTERNS 
NO ERROR 
ERROR DETECTED 


JP*LOK+3 
ENTAL*ZWETI 
ADDALK*1 
LSHAL*1 
STRAL*ZWEI 
BUP*ZWEITE 
ENTAL*EIN 
ENTAU*ZWEI 


NO ERROR 


SET BIT FOR ERROR 


JPALNZ¥*LOK+3 
JPAUNZ*LOK+2 
JIP¥LOKt2 
STOP ERROR STOP 
SKP*O4 | 
IUP*PARITY EXIT 
JP*PARITY+1 TO RECYCLE PARITY 
RESERV*01 


EVEN ERRORS 
ODD ERRORS 


SET SKIP KEY 2 TO CYCLE TEST 


REMARK* KKK ETA *e% 
REMARK*MASTER CLEAR THE COMPUTER 


PAGE 


ADDRESS 


03377 
03400 
03401 
03402 
03403 


03404 
03405 
03406 
03407 
03410 
O341i1 
03412 
03413 


O3414 
03415 
03416 
03417 
03420 
03421 
03422 
03423 


03424 
03425 
03426 
03427 
03430 
03431 
03432 
03433 


0047 
INSTRUCT 
34 3402 
12 4617 
34 3404 
12 4617 
71 ONnO!l 
5046 O1 
44 4617 
73 3375 
36 O014 
13 4571 
5054 no 
3G BU15 
12 4641 
34 3417 
12 4641 
71 O0N1 
5046 1 
44 4UB44 
73 3410 
12 4617 
10 4641 
63 3427 
62 3427 
34 3430 
5056 40 
5050 04 
55 3367 
34 3370 

000000 


09-7 


SEQNO 


002652 
002655 
002654 
002655 
002656 


002657 
002660 
002661 
002662 
002655 
002664 
002665 
002666 


002667 
002670 
002671 
002672 
002675 
002674 
G02675 
002676 


002677 
002700 
002701 
002702 
002703 
002704 
002705 
002706 


QOU2707 
002710 


LABEL 


FTA 


STATEMENT 


REMARK*SET ICR To O12 

REMARK*SET AU TO 777777 

REMARK*REMOVE ALL PROGRAM SKIPS/STOPS 
REMARK*SET PROGRAM SKIP 4 

ENTAL*#PAR5SO SET AL ZERO 


SIL* LOCKOUT ALL INTS 


STRAL*BONITA CL CONTENTS OF BONITA 
STRAL*DEBBIE THRU NANCY 

STRAL*0002 

STRAL*NANCY 


ENTAL*HOT36 SET AL TO 34END1 
STRAL*LUCILE+4 
ENTAL*HOT37 SET AL TO 34END2 


STRAL*LUCILE+3 

ENTAL*HOT4O SET AL TO 34END3 
STRAL*ZULA 

ENTAL*HOT71 SET AL TO 34END4 
STRAL*¥DENICE+3 

STRAL*LOKI+3 

ENTAL*HOT72 SET AL To 504702 
STRAL*ROSIE 


ENTAL*PAT1 SET AL TO 1 
STRAL¥RITA 

ENTAL*NEUF SET AL TO 7 
STRAL*KAY 

ENTAL*HOT73 SET AL To 34DENICE 
STRAL*LILY2+6 

ENTAL*HOT75 SET AL TQ 12KAY 
STRAL*CAROL 

ENTAL*HOT76 SET AL TO L2RONSIE 
STRAL*CONNIE 


PAGE 


ADDRESS 


03454 


(03435 


03456 
03437 
03440 
03441 
03442 
03443 
03444 


03445 
03446 
03447 
03450 
03451 
03452 
03453 
03454 


03455 
03456 
03457 
03460 
03461 
03462 
03463 


03464 — 


03465 
03466 


0048 
INSTRUCT 
12 45611 
5034 00 
4G 4606 
44 4616 
44 onne 
44 4626 
12 4760 
G4 4252 
12 4761 
Q4 451 
12 47A2 
44 4640 
12 5004 
GU «4227 
44 4263 
12 5905 
G4 5155 
12 4420 
44 5315 
12 443i 
44 5016 
12 5SNNG 
GG 4206 
12 5010 
4G 4614 
l2 5011 
44 4615 


19-¥ 


SEQNO 


002711 
002712 
002713 
002714 
002715 


002716 
002717 
002720 
002721 
002722 
002723 
002724 
002725 


002726 
002727 
002730 
002731 
002732 
002733 
002734 
002735 


002736 
002737 
00274U 
002741 
002742 
002743 
002744 
002745 


OO274HE 
C0274/ 


LABEL 


STATEMENT 
ENTAL*HOT74 SET AL TO L2RITA 
STRAL*KATHY 
ENTAL*HOT77 SET AL TO 34LILY2+3 
STRAL*LILY2te 
ENTAL*PAT2 SET AL TO 2 
STRAL*JIM 
ENTAL*HOT25 SET AL TO 34LOKI 
STRAL*TINAt5 
ENTAL*FUN65 SET AL TO 65L0K+2 
STRAL*SUM1 STORE FUNC CODE 
ENTAL*HOT1 SET AL TO 34ANN 
STRAL*0000 STORE JP REF 
ENTAL*POS1 SET AL POS 
JPALP#*LOK+4 CHECK FUNC 65 


JP*ANN FUNC 65 ERROR 
JP*ANN FUNC 65 ERROR 
JP*ANN FUNC 65 ERROR 


ENTAL*PARSO SET AL ZERO 
STRAL*SUM1 FUNC 65 OK 
ENTAL*FUNO6 SET AL TO O6KAY 
STRAL*SUM2 STORE FUNC CODE 
ENTAL*HOT?2? SET AL TO 34ELANE 
STRAL #0000 STORE JP REF 
ENTAL*PAIR2 SET AL NEG 
STRAL*NANCY 

CMSK *NANCY CHECK FUNC 06 
JPMLEQ*LOK+3 IF JPHFUNC 06 OK 
JP*ELANE FUNC 06 ERROR 


JP*ELANE FUNC 06 ERROR 
~ ENTAL*PARSO SET AL ZERO 
STRAL*SUM2 FUNCS 06~65 0K 


PAGE 


ADDRESS 


03467 
03470 
03471 
03472 
03473 


03474 
03475 
03476 
03477 
03500 
03501 
03502 
03503 


03504 
03505 
03506 
03507 
03510 
O3511 
03512 
03513 


03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 


03524 
03525 


0049 
INSTRUCT 
12 507 
GG 4625 
12 5012 
u4es$é&>eane 
1° 6§N43 
&& 4620 
12 4750 
GU 4Dd4u5 
12 «4731 
4G 5454 
12 4732 
Y4 Onno 
12 5144 
65 3510 
34 3556 
34 3556 
34 #3556 
12 4511 
44 5454 
12 4715 
44 5455 
12 4733 
4G O0onoon 
12 5197 
44 4626 
06 4626 
65 3524 
34 3536 
324 3536 
12 &5il1 
UG 5u55 


CO-P 


SE QNO 


002750 
002751 
002752 
002753 
002754 


002755 
002756 
002757 
002760 
002761 
002762 
002763 
002764 


002765 
002766 
002767 
002770 
002771 
002772 
002773 
002774 


002775 
002776 
002777 
003000 
003001 
003002 
003003 
003004 


003005 
003006 


LABEL 


ELANE 


ANN 


STATEMENT 
ENTAL*FUNOG6 SET AL TO O6KAY 
STRAL*LUCILE+3 
ENTAL*FUN65 SET AL TO 65LOK+2 
STRAL*LUCILE+4 
ENTAL*HOT60 SET AL TO 34REBECA 
STRAL*LUCILE+S | 
ENTAL*HOT61 SET AL TO OG6ELZA 
STRAL*LUCILE+7 
ENTAL*FUNO7 SET AL TO O7KAY 
STRAL*SUM16 STORE FUNC CODE 
ENTAL*HOTL SET AL TO 34ANN 
STRAL*0000 STORE JP REF 
ENTAL*NIP SET AL NEG 
STRAL*NANCY 
CMSKB*XNANCY CHECK FUNC 07 
JPMLEQ*LOKt+3 IF JPRFUNC O07 OK 


JP*ANN FUNC 07 ERROR 
JP*ANN FUNC 07 ERROR 


ENTAL*PARSO SET AL ZERO 
STRAL*SUM1L6 FUNC O07 OK 
ENTAL*FUNO7 SET AL TO O7KAY 
STRAL*#LUCILE+3 

ENTAL*HOT62 SET AL TO O7ELZA 
STRAL*LUCILE+7 

ENTAL*FUN63 SET AL TO 63REBECA 
STRAL*SUM3 STORE FUNC CODE 
ENTAL*®HOTS SET AL TO 34HELEN 
STRAL*0000 STORE JP REF 
ENTAL*NEGI1 SET AL NEG 
JPALNZ*LOKt4 CHECK FUNC 63 
JP*HELEN FUNC 63 ERROR 


PAGE 


ADDRESS 


03526 
03527 
03550 
03551 
035352 


03533 


03534 


03535 
03536 
03537 
03540 
03541 
03542 


03543 
03544 
03545 
03546 
03547 
03550 
03551 
03552 


03553 
03554 
03555 
03556 
03557 
03560 
03561 
03562 


03563 
03564 


0050 


INSTRUCT 


12 
Gy 
12 
4& 
12 


uy 
12 
44 
12 
44 
12 
44 
12 


44 
07 
65 
34 
34 
12 
44 
12 


ma 
12 
44 
12 
44 
12 
uy 
12 


63 
34 


G715 
4251 
4731 
4252 
U774 


4253 
4775 
4255 
4716 
5471 
4732 
onn0 
5434 


4626 
4626 
3550 
3556 
5556 
4511 
5471 
4716 


4251 
4776 
4255 
4730 
3456 
4734 
0000 
4455 


3567 
3634 


9-7 


SEQNO 


003007 
003010 
003011 
003012 
003013 


003014 
003015 
VO3015 
003017 
003020 
0030e1 
003022 
003023 


003024 
003025 
003026 
003027 
003030 
003031 
003032 
003033 


003034 
003035 
003036 
003037 
VO3046 
003041 
003042 
003043 


003044 
005045 


LABEL 


LINDA 


STATEMENT 
JP *HELEN FUNC 63 ERROR 
JP*HELEN FUNC 63 ERROR 
ENTAL*PAR50 SET AL ZERO 
JPALNZ*HELEN IF JP=FUNC 63 ERROR 
STRAL*SUM3 FUNC 63 OK 
ENTAL*FUNOS SET AL TO OS3KAY 
STRAL*SUM4 STORE FUNC CODE 
ENTAL*HOT65 SET AL TO 34LINDA 
STRAL*0000 STORE JP REF 
ENTAL*PARSO SET AL ZERO 
STRAL*0001 SET B TO ZERO 
CMALB*P0S3 AL NEQ M 
JPNOT¥*¥LOK+3 
JP*LINDA FUNC 03 ERROR 
JP*LINDA FUNC 93 ERROR 


ENTAL*PARSO SET AL ZERO 
STRAL*SUMY FUNC 03 OK 
ENTAL*FUNOS3 SET AL TO O3KAY 
STRAL*LUCILE+3 

ENTAL*FUN61 SET AL TO 61 JACKIE 
STRAL*LUCILE+4 


ENTAL*HOT60 SET AL TO 34REBECA 
STRAL*LUCILE+S 


ENTAL*FUNO2 SET AL TO O2KAY 
STRAL*SUM6 STORE FUNC CODE 
ENTAL*HOT3 SET AL TO 34HELEN 
STRAL*0000 STORE JP REF 
ENTAL*PARSO SET AL TO ZERNA 
CMAL*POS3 CHECK FUNC 062 
JPNOT*LOK+3 FUNC 02 OK 
JP*HELEN FUNC 92 ERROR 


PAGE 


ADDRESS 


03565 
03566 
03567 
03570 
03571 


03572 


03573 


03574 
03575 
03576 
03577 
03600 
03601 


03602 
036035 
03604 
03605 
03606 
03607 
03610 
03611 


03612 
03613 
03614 
03615 
03616 
03617 
03620 
03621 


03622 
03623 


0051 
INSTRUCT 
34 3634 
394 3634 
12 4511 
65 3634 
44 5456 
12 4714 
GQ 5457 
i2 5091 
44 0000 
12 4511 
GG O001 
03 514% 
63 3604 
34 3614 
34 3614 
12 4511 
G4 5457 
12 47l4 
4G 4251 
12 4727 
G4 4A52 
12 4774 
44 4253 
12 4&713 
44 Su6l 
12 4734 
4& 0000 
12 4511 
02 5141 
63 3625 
34 3634 


v9-¥ 


SEQNO 


003046 
003047 
003050 
003051 
003052 


003053 
003054 
003055 
003056 
003057 
003060 
003061 
003062 


0035063 
003064 
003065 
003066 
003067 
003070 
003071 
005072 


003073 
003074 
003075 
003076 
003077 
003106 
003101 
003102 


003103 
003104 


LABEL 


HELEN 


STATEMENT 
JP*HELEN FUNC 02 ERROR 
STRAL*SUM6 FUNC 02 OK 
ENTAL*FUNO2 SET AL TO O2KAY 
STRAL*LUCILE+3 
ENTAL*FUN63 SET AL TO 63REBECA 
STRAL*LUCILE+4 
ENTAL*HOT65 SET AL TO 34JACKIE 
STRAL*LUCILE+S 
ENTAL*FUN61L SET AL TO 61JACKIE 
STRAL*SUM5 STORE FUNC CODE 
ENTAL*HOTS SET AL TO 34SUE 
STRAL*0000 STORE JP REF 
ENTAL*PARS5O SET AL ZERO 
JPALZ*LOKt+4 CHECK FUNC 61 


JP*SUE FUNC 61 ERROR 
JP*SUE FUNC 61 ERROR 
JP*SUE FUNC 61 ERROR 


STRAL*SUM5 FUNC 61 OK 
ENTAL*FUNO2 SET AL TO O2KAY 
STRAL*SUM6 STORE FUNC CODE 
ENTAL*HOTY SET AL TO 34JENNIE 
STRAL*0000 STORE JP REF 
ENTAL*PO0S3 SET AL POS 
CMAL*POS3 CONT CHECKING 02 
JPEQ*LOKt3 7 | 
JP* JENNIE FUNC 02 ERROR 

JP*# JENNIE FUNC 02 ERROR 
ENTAL*PAR50 SET AL ZERO 
STRAL*SUM6 FUNCS 02-61 OK 
ENTAL*FUNO2 SET AL TO O2KAY 
STRAL*LUCILE+3 


PAGE 


ADDRESS 


03624 
03625 
03626 
03627 
03650 


03651 
03652 
03633 
03654 
03635 
03636 
03657 
03640 


03641 
03642 
03643 
03644 
03645 
03646 
03647 
03650 


03651 
03652 
03653 
03654 
03655 
03656 
03657 
03660 


03661 
03662 


0052 
INSTRUCT 
34 3634 
4G 5461 
12 4713 
SL Ske S| 
12 &730 
Gu &25eo 

12 &777 
G4 AD 53 
12 4&727 
4G 5260 
12 4736 
GY OnNnD 
1? 64511 
61 356545 
34 3712 
34 3712 
34 3712 
4G 5u60 
12 4713 
Gu =S5u61 
12 4735 
G4 ONND 
12 5141 
02 5141 
61 3657 
34 3667 
34 3667 
1] 4511 
GU S4u6l 
12 4713 
QuUsiwA Si 


G9-P 


SEQNO 


003105 
003106 
003107 
003110 
003111 


VO3112 
003113 
003114 
003115 
003116 
003117 
003120 
003121 


003122 
003125 
003124 
003125 
003126 
UV03127 
003130 
003131 


003132 
003133 
VO3134 
003135 
003136 
003137 
093140 
003141 


003142 
003145 


LABEL 


JENNIE 


SUE 


STATEMENT 


ENTAL*FUN6L 
STRAL*LUCILE+4 
ENTAL*HOT6O 
STRAL*LUCTILE+5 


SET AL TO 61JACKLE 


SET AL TO 34REBECA 


ENTAL*FUNOS SET AL TO O3KAY 


STRAL*SUMY STORE FUNC CODE 
ENTAL*HOTS SET AL TO 34SUE 
STRAL*0000 STORE JP REF 
ENTAL*PARS50O SET AL ZERO 
STRAL*O0001 SET B ZERO 
ENTAL*POS3 SET AL POS 
CMALB*PO0S3 CHECK FUNC 03 
JPEQ*LOK+3 IF JP=FUNC 03 OK 


JP *SUE FUNC 03 ERROR 
JP*SUE FUNC 03 ERROR 


ENTAL*PARSO SET AL ZERO 
STRAL*SUMY FUNC 03 OK 
ENTAL*FUNOS SET AL TO O3KAY 
STRAL*LUCILE+3 
ENTAL*FUN61 SET AL TO 61JACKIE 
STRAL*LUCILE+4 

ENTAL*HOT60 SET AL TO 34REBECA 
STRAL*LUCILE+S5 


ENTAL*HOT7 SET AL TO 34J0YCE 
STRAL*0000 STORE JP FAULT REF 
STRAL*REBECA STORE JP REF 
ENTAL*HOT10 SET AL TO 34ALICE 
STRAL*JACKIE STORE JP REF 
ENTAL#*ROSTE SET AL TO 504702 


STRAL*SUM7 
ENTAL*RITA 


STORE FUNC CODE 
SET AL TO 1 


PAGE 


ADDRESS 


03663 
03664 
03665 
03666 
03667 


03670 
03671 
03672 
03673 
03674 
03675 
03676 
03677 


03700 
03701 
03702 
03703 
03704 
03705 
03706 
03707 


O371N 
03711 
03712 
03713 
03714 
03715 
03716 
03717 


03720 
03721 


0053 
INSTRUCT 
12 4727 
44 49250 
12 4774 
44 4953 
12 4714 
44 5457 
12 4736 
44 ONN0 
12 4511 
4G 0001 
12 5141 
03 5141 
61 3702 
34 3712 
34 3712 
12 4511 
U4 5457 
12 4714 
44 425} 
12 4727 
44 4252 
12 4774 
44 4253 
12 4737 
44 0000 
44 4627 
12 4740 
uu 4624 
12 5155 
4u4 5u62 
12 5315 





99-7 


SEQNO 


003144 
003145 
003146 
005147 
003150 


003151 
003152 
003153 
005154 
003155 
003156 
003157 
003160 


003161 
003162 
003163 
003164 
003165 
003166 
003167 
003170 


003171 
GO317e 
003173 
003174 
003175 
003176 
003177 
003200 


003201 
003202 


LABEL 


ALICE 


JOYCE 


CINDY 


STATEMENT 


LSHA*02 CHECK FUNC 5047 


JPXLOK+3 CONTINUE CHECKING 
JIP*#IOYCE FUNC 5047 ERROR 

JP* JOYCE FUNC 5047 ERROR 
STRAL*ELZA STORE FINAL RESULT 
JP*_LUCTILE CHECK RESULTS 
ENTAL*HOT15 SET AL To 504720 
STRAL*LOKI*+3 STORE SHIFT 
ENTAL*HOTLO1 SET AL TO 44GAIL 
STRAL#*LOKI+4 STORE JP REF 
ENTAL*HOTLS SET AL TO 504722 
STRAL*DENICE+3 STORE SHIFT 
ENTAL*PAR50 SET AL ZERO 
STRAL*SUM7 FUNC 5047 OK 
ENTAL*PAR2 SET AL TO & 
STRAL*KAY STORE ANS 
ENTAL*FUN1O AL EQ FUNC 10 
STRAL*SUM1LO STORE FUNC CODE 
ENTAL*HOT11 SET AL TO 34BARB 
STRAL*0000 STORE JP FAULT REF 
STRAL*REBECA STORE JP REF 
ENTAL*HOT17 SET AL TO 34CINDY 
STRAL* JACKIE STORE JP REF 
STRAL*ELZA 7 


ENTAU*PAR2 SET AU TO 4 
STRAU*ELZA 
JP*LUCILE 
JP*BARB 
JP*BARB 


CHECK RESULTS 
FUNC ERRORS 
FUNC ERRORS 


ENTAL*FUNLO 
STRAL*LOKI+4 


SET AL TO 1OPARI 
STORE ENTAU 


CHECK FUNCS 10844 


PAGE 


ADDRESS 


03722 
03723 
03724 
03725 
03726 


03727 
03750 
03731 
03732 
03733 
03734 
03735 
03736 


037357 
03740 
03741 
03742 
03743 
03744 
03745 
03746 


03747 
03750 
03751 
03752 
03753 
03754 
03755 
03756 


03757 
03760 


0054 


INSTRUCT 
5047 92 
34 3726 
34 3740 
34 3740 
44 4620 
34 4auE 
12 4744 
44 4963 
12 Soi4 
44 4964 
12 47Ky 
U4 4Oo7 
12 4511 
44 5462 
12 5046 
44 5016 
12 4717 
44 5463 
12 4741 
44 O0N0 
44 4627 
12 4745 
44 4624 
U4 4620 
10 5046 
46 4620 
34 4ouG 
34 3767 
34 3767 
12 4717 
44 4264 


LO~-¥ 


SEQNO 


003203 
003204 
003205 
003206 
003207 


003210 
003211 
O0321c 
003213 
003214 
003215 
003216 
003217 


003220 
VO3221 
003222 
003223 
003224 
003225 
003226 
003227 


003230 
003231 
003252 
003235 
003234 
003235 
003236 
003237 


003240 
003241 


LABEL 


BARB 


SHERRY 


LORANE 


STATEMENT 


ENTAL*FUN46 


STRAL*LOKI+3 


ENTAL*HOT67 


STRAL*DENICE+3 


ENTAL*PAR50 


STRAL*SUM10 
ENTAL*FUNLL 
STRAL*SUM11 
ENTAL*HOT13 
STRAL*0000 


STRAL*REBECA 


ENTAL*HOT14 


STRAL*JACKIE 


STRAL*ELZA 
ENTAL*POS3 
STRAL¥KAY 
ENTAUB*P0SS 
STRAUB*ELZA 
JP*LUCILE 
JP*LORANE 
JP*LORANE 


ENTAL*FUNI1 


STRAL*LOKI+4 
ENTAL*HOT102 
STRAL*LOKI+3 


ENTAL*HOT70O 


STRAL¥*DENICE+3 


ENTAL*PARS5O 
STRAL*SUM11 


ENTAL*FUNILS 
STRAL¥*¥ROSIE 


SET AL TO 4Y6GAIL 
STORE STRAU 
SET AL TO I1ORITA 
STORE ENTAU 
SET AL ZERO 


FUNCS 10-46 OK 

AL Eq FUNC 11 
STORE FUNC CODE 
SET AL TO 34LORANE 


STORE JP FAULT REF 


STORE JP REF 
SET AL TO 34SHERRY 
STORE JP REF 


SET AL TO 242424 


SET AU TO 242424 
CHECK FUNCS 11-47 


CHECK RESULTS 
FUNCS 11-47 ERRORS 
FUNCS 11-47 ERRORS 


SET AL TO 11PAR1 
STORE ENTAUB 
SET AL TO 47GAIL 
STORE STRAUB 

SET AL TO LIRITA 

STORE ENTAUB 

SET AL ZERO 

FUNCS 11-47 0« 


AL EQ FUNC 15 
STORE FUNC REF 


PAGE 


ADDRESS 


03761 
03762 
03763 
03764 
03765 


03766 
03767 
03770 
03771 
03772 
03773 
03774 
03775 


03776 
03777 
04000 
04001 
04002 
04003 
04004 
04005 


04006 
04007 
04010 
O4011 
04012 
04013 
04014 
04015 


04016 
04017 


0055 
INSTRUCT 
12 &72a5s 
44 4263 
12 5092 
GQ 8927 
12 4511 
&& 5463 
12 4720 
4G 5464 
12 &742 
44 onn0 
G4 4627 
12 &743 
GG 4624 
G4“ 4620 
12 5141 
44 65016 
il 5141 
G7 4620 
3G 4246 
34 4016 
34 4916 
12 4720 
GG 4264 
12 S015 
GY 4263 
12 5093 
GG 4227 
12 4511 
44 5464 
12 4721 
44 5155 


89-P 


SEQNO 


003242 
003243 
003244 
003245 
003246 


003247 
003250 
003251 
0035252 
003254 
003254 
003255 
003256 


003257 
003260 
003261 
003262 
003265 
003264 
003265 
003266 


003267 
003270 
005271 
00327e 
003273 
003274 
003275 
003276 


003277 
003300 


LABEL 


LEANN 


TERRY 


STATEMENT 
STRAL*SUM12 STORE FUNC CODE 
ENTAL*#HOT23 SET AL TO 34TERRY 
STRAL*REBECA STORE JP REF 
STRAL*0000 STORE JP FAULT REF 
ENTAL*HOT24 SET AL TO 34LEANN 
STRAL*JACKIE STORE JP REF 
ENTAL*PATS SET AL TO 3 
STRAL*RITA STORE AL FUNC CHECK 
ENTAL*PAR2 SET AL TO 4 
STRAL*KAY STORE FUNC ANS 
JP*DENICE CHECK FUNC 
ENTAL*TRYI 
STRAL¥*¥LILY4 
ENTAL*TRY2 
STRAL*¥LILYS 
ENTAL*TRY1I1 FUNC 15 OK 
STRAL*ZULA STORE REF 
ENTAL*PATIL SET AL TO 1 
STRAL*LOUISE STORE ADD 1 REF 
ENTAL*PARSO SET AL ZERO 
STRAL*SUM12 FUNC 15 OK 
ENTAL*FUN17 AL EQ FUNC 17 
STRAL*¥ROSIE STORE FUNC REF 
STRAL*SUM13 STORE FUNC CODE 
ENTAL*HOT27 SET AL TO 34SHELIA 
STRAL*REBECA STORE JP REF 
STRAL*0000 STORE JP FAULT REF 
ENTAL*HOT30O SET AL TO 34BETH 
STRAL*JACKIE STORE JP REF 
ENTAL*PAR2Q SET AL TO 4 
STRAL*KAY 


PAGE 


ADDRESS 


04020 
04021 
04022 
04023 
04024 


04025 
04026 
04027 
04030 
04031 
04032 
04033 
04034 


040355 
04036 
04037 
04040 
04041 
04042 
04043 
04044 


08045 


04046 
04047 


04050 


04051 
04052 
04053 
04054 


04055 
04056 


0056 
INSTRUCT 
G4 5465 
12 «64 7hB 
GY 4627 
Gu OnNnDO 
12 &74yu7 
Ga“ BOY 
12 4420 
GH 5315 
12 5046 
4“ 865016 
34 4ooy 
12 4677 
U4 4>12 
12 4700 
UH Ysa 
12 &Y7n7 
GY 4YEuDO 
12 44420 
oS ee aed 
12 4511 
44 5465 
12 4720 
44 5155 
44 5u66 
12 «4751 
4G 4627 
44 0n0n0 
12 4752 
QU“ YB 
12 5N46 
YU4usSN16 


69-P 


SEQNO 


003301 
003302 
003303 
003304 
003305 


003306 
003307 
00331 
003311 
003312 
003313 
003314 
003315 


003316 
003317 
003320 
003321 
003322 
003323 
003324 
003325 


003326 
0U3327 
003330 
Q03331 
003332 
003335 
003334 
003335 


003336 
003337 


LABEL 


BETH 


SHELIA 


SANUY 


STATEMENT 
ENTAL*PAT3 SET AL TO 3 
STRAL*RITA STORE AL FUNC CHECK 
JP*DENICE CHECK FUNC 
ENTAL*TRY3 
STRAL*LILY4 
ENTAL*TRYY 
STRAL*¥LILYS 
ENTAL*TRY12 FUNC 17 OK 
STRAL*ZULA STORE REF 
ENTAL*DIT46 SET AL TO NEG 1 


STRAL*LOUISE STORE SUB NEG 1 REF 
ENTAL*PAR50 SET AL ZERO 
STRAL*SUM13 FUNC 17 OK 
ENTAL*FUN2@1 AL EQ FUNC el 
STRAL*ROSIE STORE FUNC REF 
STRAL*SUM14 STORE FUNC CODE 
ENTAL*HOT31 SET AL TO 34BECKY 
STRAL*REBECA STORE JP REF 
STRAL*0000 STORE JP FAULT REF 
ENTAL*HOT32 SET AL TO 34SANDY 
STRAL*JACKIE STORE JP REF 
ENTAL*POS1 SET AL TO 5§ 
STRAL*KAY 
ENTAL*PAT3 SET AL TO 3 
STRAL*RITA STORE AL FUNC CHECK 
JP*DENICE CHECK FUNC 
ENTAL*TRYS 
STRAL*LILY4 
ENTAL*TRY6 

~~ STRAL*LILYS 
ENTAL*TRY13 FUNC 21 OK 


PAGE 


ADDRESS 


04057 
04060 
04061 
04062 
04063 


04064 
04065 
04066 
04067 
04070 
04071 
04072 
04073 


04074 
04075 
04076 
04077 
04100 
04101 
04102 
04103 


04104 
04105 
04106 
04107 
04110 
04111 
04112 
04113 


04114 
04115 


0n57 
INSTRUCT 
12 4422 
44 5315 
34 4o2K 
12 4701 
44 4212 
12 4702 
44 4224 
12 4710 
44 46u0 
12 4416 
44 4426 
12 4511 
44 5466 
12 4723 
44 5155 
44 5467 
12 4753 
G4 4627 
44 00ND 
12 4754 
44 4624 
12 5144 
uu 5016 
12 4422 
44 5315 
34 4224 
12 4703 
44 4o12 
12 4704 
44 4221 
12 


4711 


OL-P 


SEQNO 


003340 
003341 
003342 
003345 
003344 


003345 
003346 
003347 
V03350 
003351 
003352 
003353 
003354 


003355 
003356 
003357 
003360 
003361 
003362 
003363 
003364 


003365 
005366 
003367 
003370 
003371 
003372 
003373 
003374 


003375 
003376 


LABEL 


BECKY 


LIZ 


STATEMENT 


STRAL*ZULA STORE REF 
ENTAL*PAR5O SET AL ZERO 
STRAL*LOUISE STORE ADD 1 REF 
STRAL*SUM1L4Y FUNC 21 OK 
ENTAL*FUN23 AL E@ FUNC 23 


STRAL*ROSIE STORE FUNC REF 
STRAL*SUM15 STORE FUNC CODE 
ENTAL*HOT33 SET AL TO 34BETTY 
STRAL*REBECA STORE JP REF 
STRAL*¥0000 STORE JP FAULT REF 
ENTAL*¥HOT34 SET AL TO 34LIZ 
STRAL¥JACKIE STORE UP REF 
ENTAL*PAT3 SET AL TO 3 


STRAL*RITA 
ENTAL*POS1 
STRAL*KAY 
JP*DENICE CHECK FUNC 
ENTAL*TRY7 
STRAL*LILY4 
ENTAL*TRY1O 
STRAL*¥LILYS 


STORE AL FUNC CHECK 
SET AL TO 5 


ENTAL*TRY14 FUNC 23 OK 
STRAL*ZULA STORE REF 

ENTAL*PARI SET AL NEG ZERO 
STRAL*LOUISE STORE SUB NEG 1 REF 
ENTAL*PARS5SO SET AL ZERO 
STRAL*SUMLS FUNC 23 OK 
ENTAL*HOT56 SET AL TO 34DNTTIE 
STRAL*¥JACKIE STORE JP REF 


ENTAL*HOTS7 SET AL TO 34PAT 
STRAL*REBECA STORE JP REF 


PAGE 


ADDRESS 


04116 
04117 
04120 
04121 
04122 


04123 
04124 
04125 
04126 
04127 
041350 
04131 
04152 


04133 
04134 
04155 
04136 
041357 
04140 
04141 
04142 


04143 
04144 
04145 
04146 
04147 
04150 
04151 
04152 


04153 
04154 


0058 
INSTRUCT 
44 4640 
12 4511 
44 4426 
44 5467 
12 4724 
44 5155 
44 5470 
12 4755 
U4 4627 
44 0000 
12 4756 
44 4624 
12 4422 
44 5315 
12 5144 
44 5016 
34 4224 
12 4705 
uu 4D>12 
(12° 4706 
G4 Url 
12 4712 
44 4640 
12 5066 
G4 4426 
12 4511 
44 Suv 
12 4772 
44 4624 
12 4773 


G4 4ADT 


TL-? 


SEQNO 


003377 
003400 
003401 
003402 
003405 


003404 
003405 
003406 
003407 
003410 
003411 
003412 
003413 


003414 
003415 
003416 
003417 
003420 
003421 
003422 
0034235 


003424 
003425 
003426 
003427 
003430 
VU3431 
003432 
003433 


003434 
003435 


LABEL 


BETTY 


DOTTIE 


LILY1 


LILY3 


LILY2 


PAT 


LILY4 


STATEMENT 
ENTAL*ZULA AL EQ ARITH FUNC 
STRAL*LILY1 STORE CORRECT FUNC 
STRAL*LILY2 TO INCREMENT 
STRAL*LILY3 | 
ENTAL*PARSO SET AL ZERO 
STRAL*O0001 SET B TO ZERO 
ENTAL*CAROL 
o000n0 INCREMENT BY 1 
STRAL*CAROL 
STRAL*LOK+1 
oo0o000 
STRAL*KAY STORE NEXT ANS 
ENTAL*CONNIE 
oo000g INCREMENT BY 1 
STRAL*CONNIE 
STRAL¥LOK+1 
o00coo0 
STRAL*ROSIE STORE NEXT FUNC CONDE 
ENTAL*KATHY 
000000 INCREMENT BY 1 
STRAL*¥KATHY 
000000 
STRAL¥*¥LOK+1 
000000 
STRAL*RITA STORE NEXT AL ENTRY 
JP*DENICE 
ENTAL*PARSO SET AL ZERO 


STRAL*O0001 SET B TO. ZERO 
ENTAL*DEBBIE AL E@ FUNC ERRORS 


0O0UN0G ADD TO FUNC ERROR 
STRAL*DEBBIE STORE FINAL ERROR 


PAGE 


ADDRESS 


04155 
04156 
04157 


04160 


04161 


04162 
04163 
04164 
04165 
04166 
04167 
04170 
O4171 


04172 


04173 


04174 
04175 
04176 
04177 
04200 
04201 


04202 


04203 
04204 
04205 
04206 
04207 
04210 
04211 


04212 
04213 


0059 
INSTRUCT 
12 4640 
44 4164 
44-4200 
44 4172 
12 4511 
44 0001 
12 4614 

000000 
44 4614 
44 4167 

000090 
uu 5016 
12 4615 

000000 
44 4615 
44 4475 

000000 
44 5155 
12 4625 

0000N0 
44-4625 

000000 
u4 4oo4 

000000 
44 5315 
34 4224 
12 4511 
uu oon 
12 4616 

n000N0 


44 4616 


CL-P 


SEQNO 


003436 
003437 
003440 
003441 
003442 


003445 
0035444 
003445 
OOS446 
003447 
003450 
003451 
003452 


003453 
003454 
003455 
003456 
003457 
003460 
OO346l 
003462 


003463 
003464 
003465 
003466 
003467 
003470 
003471 
003472 


003473 
003474 


LABEL 


JANE 


LILYS 


DENICE 


SALLY 


TINA 


LUCILE 


STATEMENT 
STRAL*BONITA 
JP*DOTTIE 
ENTAL*PAR5SO SET AL ZERO 
STRAL*0001 SET B TO ZERO 


ENTAL*BONITA AL EQ SUB FINAL ERROR 


000000 CHECK ALL SUMS FOR ERRORS 


STRAL*BONITA STORE ERROR DISPLAY 
JP¥LILY2=1 

ENTAL*PARSO SET AL ZERO 

STRAL*0001 SET B TO ZERO 

ENTAL*RITA AL EQ PAT USED TO CHECK FUNC 
oo0nno 

ENTAL*HOT35 SET AL TO 34PAT 

OoTRAL*U000 STORE JP FAULT REF 
ENTAL*ROSTE AL —€Q@ FUNC TO BE CHECKED 
STRAL*TINA 

STRAL*JOY STORE FUNC CODE 

ENTAL*PARS5O SET AL ZERO 

STRAL*0001 SET B TO ZERO 

ENTAL#*RITA AL EQ PAT USED TO CHECK FUNC 
000000 CHECK FUNC 

JP*TINAtTY 

JP*LOKI CHECK FOR SKIP FUNC 

JP*PAT FUNC ERROR 

STRAL*ELZA STORE RESULTS OF FUNC CHECKED 
JP*LOKI CHECK FUNC RESULTS 

ENTAL*PAR5SO SET AL ZERO 

STRAL*0001 SET B ZERO 

ENTAL*ELZA AL Eq RESULT FROM FUNC CHECKED 
000000 THESE 3 LOKS ARE USED TO 

Q00000 COMPARE AND CHECK IF RESULTS IS 


PAGE 


ADDRESS 


04214 
04215 
04216 
04217 
04220 


04221 
04222 
04223 
04224 
04225 
04226 
04227 
04230 


042351 
04252 
04233 
04254 
04235 
04256 
042357 
04240 


04241 
04242 
04245 
O4244 
04245 
04246 
04247 
04250 


04251 
04252 


0060 
INSTRUCT 
GU 4606 
34 4161 
12 4USii 
44 0001 
12 46N6 

000000 
44 4606 
34 4177 
12 4511 
“4 Onn! 
12 5315 

no00ng 
12 4757 
44 00ND 
12 §155 
44 4ouO 
GU 4YAes 
12 4511 
4G Ooo! 
12 5315 

oo00nnD 
34 4oauYy 
34 4260 
34 4207 
“ues «4620 
34 4260 
12 4sil 
G& O0N} 
12 4&620 

o000nn0 

o009qn0 


EL-Vv 


SEQNO 


003475 
003476 
003477 
003500 
003501 


003502 
003503 
003504 
003505 
003506 
003507 
003510 
0035511 


UVO0351le2 
V03515 
003514 
003515 
003516 
003517 
003520 
003521 


003522 
003523 
003524 
003525 
003526 
003527 
0903530 
003531 


00353e 
003533 


LABEL 


LOKI 


CHER 


LOIS 
HAYLEY 


FAYE 


PATTIE 


SUSAN 


ROBIN 


STATEMENT 


000000 CORRECT BY COMB OF INSTRS NK 


ENTAL*KAY AL EQ@ CORRECT ANS 
000000 CONT CHECKING 
JUPMLEQ*JACKIE IF JPHFUNC OK 
JP*REBECA FUNC ERROR 


ENTAL*PARSO SET AL ZERO 
STRAL*0001 SET B TO ZERO 
ENTAL*PAR1 SET AL TO NEG1 
000000 
000000 
JP*LUCILE 
OO*CHER*t1 
STRAL*00 


CHECK FUNC RESULTS 


ENTAL*CHER+1 
STRAL*ELZA 
JP*LOKI 
OO*DOTTIE 


~ENTAL*PAR5SO 


JP¥DOATTIE 
ENTAL*GAIL 
STRAL*ELZA 


JP*LOKI | 
ENTAL*HOT46 
STRAL*TINAtL 
JP*DOTTIE 
ENTAL*0001 
STRAL*ELZA 
ENTAL*HOT47 
STRAL*TINA+1 


JPFLOKI 
S4¥*DOTTIE 


PAGE 


ADDRESS 


04253 
04254 
04255 
04256 


04257. 


04260 
04261 
04262 
04263 
04264 
04265 
04266 
04267 


04270 
04271 
04272 
04273 
04274 
04275 
04276 
04277 


04300 


04301 
04302 
043503 
04304 
04305 
04306 
04307 


04310 
04311 


004A! 
INSTRUCT 
000000 
12 5016 
000000 
65 4624 
34 4627 
12) 6&511 
44 O001 
12 5066 
000000 
oo000nn 
34 4oug 
00 4267 
44 0000 
12 4267 
44 4620 
34 4&260 
00 4161 
12 4511 
34 4461 
12 46el 
4G 4A20 
34 4260 
12 4763 
44 44) 
34 4161 
12 oon1 
44 4620 
12 4764 
44 4O4t 
34 4260 
34 4161 


vL-F 


SEQNO 


003554 
003535 
003535 
003537 
003540 


003541 
00354e 
003545 
003544 
003545 
003546 
003547 
003550 


003551 
003552 
003553 
003554 
003555 
003556 
003557 
003560 


003561 
003562 
003563 
003564 
003565 
003566 
003567 
003570 


003571 
003572 


LABEL 


WENNIE 


LILY 


GAYLE 


DINA 


GRACY 


ENOL 


STATEMENT 


34*PAT 
34*PAT 
34*DOTTIE 
ENTAL*HOTSO 
STRAL*TINA+S 


JP*DOTTIE 
STRAL*KAY 
ENTSR*0 
ENTAL*KAY 
STRAL*ELZA 
ENTAL*HOT5S1 
STRAL*TINAtS 
JP*LOK I 


STRAL*ELZA 
ENTAL*HOTS3 
STRAL*JACKIE 
ENTAL*HOTS2 
STRAL*REBECA 
ENTAL*HOT64 
STRAL*LILY2+6 
ENTAL*HOT1OO 


STRAL*LILY2+2 


SP¥FLILY2=1 


ENTAL*HOTSS 
STRAL*ROSIE 
ENTAL*HOTS6 
STRAL*JACKIE 
ENTAL*HOTS7 
STRAL*REBECA 


JP*SALLY 
STOP*«40 


SET AL TO 34STOPIE 
SET AL TO 34JANE 
SET AL TO 34LUCILE 


SET AL TO 44ELZA 


SET AL TO 34BETTY 
STORE JP REF 

SET AL TO 34D0TTIE 
STORE JP REF 

SET AL TO 34PAT 
STORE JP REF 


ERROR STOP 313-61 


PAGE 


ADDRESS 


04312 
04313 
04314 
04315 
04316 


04317 
04320 


04321 
04322 


04323 
043524 


~—6 04325 


04326 


043527 
0433N 
04351 
04332 
04333 
04334 
04335 
04336 


04337 
04340 
043541 


O4342 


04343 
04344 
04345 
04346 


04347 
04350 


0062 
INSTRUCT 
34 4207 
34 4207 
34 416) 
12 4765 
U4 424s 
34 4161 
44 5016 
5073 00 
12 5016 
44 4620 
12 4&766 
44 4245 
34 4260 
44 4620 
12 4770 
GQ“_si‘idMURH 
12. 4767 
G4 «4627 
12 5000 
44 42ON6 
12 5013 
44 4one2 
34 4477 
12 4771 
u4 5155 
12 4772 
44 4624 
12 4773 
44 46?7 
34 4230 


5056 


40 


GL-v 


SEQNO 


003573 
003574 
003575 
003576 


003577 


003600 
00360! 
003602 
003605 
005604 
003605 
003606 
003607 


003610 
003611 
003612 
003615 
003614 
003615 
003616 
003617 


003620 
003621 
003622 
003625 
003624 
003625 


003626 


003627 


VO03650 
003631 


LABEL 


ENDe 
ENDS 
END4 
STOPIE 


AF AULT 


DISPOC 


IFAULT 


STATEMENT 
STOP*KO ERROR STOP 341342 
STOP*40 ERROR STOP 3.13.3 
STOP*4QO ERROR STOP 3-13-44 
ENTAL*DEBBIE 
ENTAU*BONITA 
STOP*4&Y ERROR STOP 3413¢5"“END OF TEST 
JP*LOK=1 RESET P AND CONDITIONS 
RESERV*01 
RUP*AFAULT+#1 FAULT ROUTINE JP 
0*0 ENTRY AND (P) 
ENTAL*IFAULT INSURE PROPER 
STRAL*IFAULT+1 C DISPLAY 
ENTAL*AFAULT+1 FLT ADDR IN AL 
ADDALK*7776 SUBTRACT 1 
STRADR*LOKt1 RESTART TO DISPLAY 
ENTAU*ADR CONTENTS OF FAULTING ADDR 
RJUP*DISPOC DISPLAY IFAULT ON C 
CL*¥IF AULT CLEAR SUSP INST STORAGE 
STOP*4O ERROR STOP 
0*0 ENTRY 
OUT*00 OUT ON CHAN 0 
O*ITFAULT+1 TO DISPLAY 
O*TFAULT IFAULT 
OUTSTP*00 AVOID FALSE DISPLAY 
OUTOV*O0 ODA TO DISPLAY ON C 
SRSM*00 SET RESUME 
TUP*DISPOC EXIT 
0*0 SUSPECT FLT INST STORAGE 
O*Q 
DBLSET 


TROISSEPT 377777 


PAGE 


ADDRESS 


04351 
04352 
04353 
04354 
04355 


04356 
04357 
04360 
04361 
04362 
04363 
04364 
04365 


04366 
04367 
04370 
04371 
04372 
04373 
04374 
04375 


04376 
04377 
O44ON 
04401 
04402 
04403 
O44OK 
04405 


04406 


0063 
INSTRUCT 
5056 40 
5056 40 
5056 40 
12 4616 
10 4606 
5056 40 
34 4356 

000000 
76 4362 
00 0000 
12 4404 
44 GENS 
12 4362 
71 7776 
74 4370 
10 o900 
76 4374 
4O 4404 
5056 40 
00 onne 
5012 00 

004405 

0044n4 
5016 n0 
5026 10 
5020 0 
55 4374 
00 Onno 
00 00n0 

377777 


9L-F 


SEQNO 


003632 
003635 
003634 
003635 
003636 


003637 
003640 
003641 
003642 
003643 
003644 
003645 
003646 


003647 
003656 
003651 
003652 
003655 
003654 
003655 
003656 


003657 
003666 
003661 
00366e 
003663 
003664 
003665 
003666 


003667 
003670 


LABEL 


UNESEPT 


TROISCING 


QUTREDEUX 


DIT46 
PATI 


PATS 


DUQONE 


LOUISE 


SIXZERUNE 


NEUF 


SEVENZERO 
ZEROCING 


THIRTEEN 


THIRTY 


TREFIVE 
THIFIVE 
ZEROSEPT 


DEAN 


TRANSIT 
TSEVTZER 


TEAN 
NZRO 


177777 
177777 
377777 
353535 
353535 


“Y24UOKR 
424242 
777776 
000000 
000001 
000003 
000003 
000001 


000001 
000001 


g00000 


000000 
600001 


000007 


700000 
000005 


000013 


000030. 


000035 
350000 
070707 
707070 
770707 
777000 


070007 
777777 


PAGE 


ADDRESS 


04407 


04410 
O841) 
04412 
04413 


O44l1y 
04415 
04416 
04417 
04420 
04421 
04422 
04423 


04424 
O4425 
04426 
04427 
04430 
O4¥4351 
04432 
04433 


04434 
04435 
04436 
04437 
04440 
O44Gl 
0444S 
04843 


O484y 
04445 


0064 


INSTRUCT 


177777 
177777 
377777 
5935555 
353535 


K24oKo 
424240 
777776 
000000 
000001 
000003 
000003 
000001 


ooognnL 
000001 
000000 
000090 
600nnl 
000007 
700000 
0000n5 


000N13 
000030 


000035 


350000. 
070707 

707070 
770707 
777000 


070097 
777777 


LL-¥ 


SEQNO 


003671 
005672 
003675 
003674 
G03675 


003676 
003677 
003700 
003701 
003702 
003703 
003704 


003705 


003706 
003707 
003710 


003711 


003712 
003713 
005714 
003715 


005716 
003717 
003720 
0035721 
003722 
003723 
003724 
003725 


003726 
003727 


LABEL 


BEEREG 
SEVENT 


STACKED 


MAZE 


TROISDEUX 


GUTRECING 


GOUP3 
NEG] 
GOUP 
GOUP2 


SIXSEPT 
TRANSFER 


FACTOR 


SEVENN 


TROISZERO 


CHAN 


ZERODEUX 


507210 
777707 
557775 
003777 
325232 


454545 
611116 
“77777 
S44QK5 
232232 
677777 
776001 
504477 


000007 
300000 
ooo0nl 
000002 
000004 
000010 
000020 
000040 


000100 


000200 
000400 
001000 
002000 
004900 
010000 
020000 


040000 


UNEHUNTHO 100000 


PAGE 


ADDRESS 


04446 
04447 
04450 
04451 
04452 


04453 
04454 
04455 
04456 
04457 
04460 
O4461 
04462 


04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 


04473 
04474 
04475 
04476 
04477 
04500 
04501 
04502 


04503 
04504 


0065 


INSTRUCT 


507210 
777707 
557775 
003777 
323232 


454545 
611116 
4u77777 
544445 
232232 — 
677777 
7760N1 
504477 


000007 
500000 
000001 
o0000N2 
000004 
000010 
000020 
000040 


000190 
0002N0 
000400 
001000 
002000 
004000 
0100N0 
0200N0 


040NNO 
100090 


8L-P 


SEQNO 


003730 
003731 
003732 
003733 
003734 


003735 
003736 
003737 
003740 
003741 
003742 
003743 
OO3744 


003745 
003746 
003747 
003750 
003751 
003752 
093753 
003754 


003755 
003756 
003757 
003760 
003761 
003762 
003765 
003764 


003765 
003766 


LABEL 


TWOHUNTHO 200000 
QUTREZERO 400000 


TESTALL 
POSZERO 


PARSO 


NEGZERO 


SCARF 


GROUP 


COMBINE 


ROUND 


KNOCKOUT 


000000 
000000 
000000 


777777 


6714741 


002715 
641464 
611677 
225617 
457271 
160477 


166105 
721121 
934333 
O44047 
937272 
033432 
611212 
752616 


527366 
000000 
000000 
944445 
133331 
232232 
611116 
000002 


700002 
000002 


PAGE 


ADDRESS 


04505 
04506 
04507 
04510 
04511 


04512 
04513 
04514 
04515 
04516 
04517 
04520 
04521 


04522 


04523 
04524 
04525 
04526 
04527 
04530 
04531 


04532 
04533 
04534 
04535 
04536 
04537 
04540 
04541 


04542 
04543 


0046 


INSTRUCT 


200000 
400000 
000000 
000000 
000nN0 


T77777 
671471 
002715 


~—664 1464 


611677 
223617 
457271 


—160477 


166195 
721121 
534333 
O44Ns7 
537272 
033432 
611212 
752616 


527366 
000000 
000000 
544445 
133331 
232232 
611116 
ooonn2 


7TO000N2 
o00nne 


6L-7 


SEQNO 


003767 
003770 
OUS771 
003772 
003773 


003774 
003775 
003776 
003777 
004000 
004001 
004002 
004003 


OO4004 
004005 
004006 
004007 
004010 
OO4O1L 
OOK0l1e2 
904013 


004014 
004015 
004016 
004017 
004020 
004021 
004022 
GO4QN25 


004024 
004025 


LABEL 


TWOSEV 


ACKUP 


EVEN 


CODD 


700001 
777777 
777777 
017774 
027774 


047774 
107774 
146314 
T22442 
035237 
251764 
546403 
220151 


737276 
153724 
600011 
175563 
4GO314 
722463 
211744 
177236 


254304 
167463 
522150 
201705 
675077 
146200 
712536 
425763 


- 171050 


606315 


PAGE 


ADDRESS 


04544 
04545 
04546 
04547 
04550 


04551 
04552 
04553 
04554 
04555 
04556 
04557 
04560 


04561 


04562 


04563 
04564 


04565 


04566 
04567 
04570 


04571 
04572 
04573 
04574 
04575 
04576 
04577 
04600 


04601 
04602 


0067 


INSTRUCT 


700001 
777777 
777777 
017774 
027774 


047774 
107774 
146314 
T22442 
035237 
251744 
546403 
220151 


737276 
153724 
600011 
175563 
446314 
722463 
211744 
177236 


254304 — 
167463 
522150 
201795 
675077 
1462900 
712536 
425763 


171050 
606315 


—608-% 


SEQNO 


008026 
004027 
004030 
004031 
004032 


004055 
004034 
004035 
004036 


004037 


004040 
004041 
004042 


004043 
004044 
004045 
004046 
004047 
0049050 
004051 
004052 


004055 
004054 
0049055 
004056 
004057 
004060 
004061 
004062 


004063 
GO04064 


LABEL 


BONITA 
BENERROR 


BENCOUNT 
BINYARD 
BELONG 
COLLECT 
CAROL 
CONNIE 
DEBBIE 
EIN | 


ELZA 
GAIL 
JIM 
JOY 
JACKIE 
KATHY 
NANCY 
REBECA 


STACKUP 
STROLL 
STAHL 
SROBY 
TOAX 
TOPCOUNT 
VERA 
WASTE 


ZULA 
ZWEI 


270626 
117443 
742170 
000000 
000000 


000000 
000000 
000000 
000900 
000000 
000000 
000000 
000000 


Q00000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
gogo0n0 
000000 
000000 
000000 
000000 


000000 
000000 


PAGE 


_ ADDRESS 


04603 
04604 
04605 
04606 
04607 


04610 
04611 
04612 
04613 
04614 
04615 
04616 
04617 


04620 
04621 
04622 
04623 
04624 
04625 
04626 
04627 


04630 
04631 
04632 
046353 
04634 
04635 
04636 
04637 


04640 


04641 


0068 


INSTRUCT 


270626 
117443 
T4H2170 
o00NnNnO 
000NnNN 


0000n0 
000000 
0000N0 
000000 
0000n0 
000000 
000090 
000000 


o000nn 
000000 
000000 
o00nND 
000000 
000000 
000000 
000000 


0000ND 
000000 
o00n0n0 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


18-7 


SEQNO 


904065 


004066 
004067 
004070 
OO4071 


004072 
004073 
008074 
004075 


— 004076 


004077 
004100 
004101 


004102 
004105 
004104 
004105 
004106 
004107 
004410 
004111 


004112 
004113 
OO4 114 
004115 
004116 
004117 
004120 
004121 


OU4L22 
004125 


LABEL 


ALLON 


TRES 


ROUGE 
REPLEM 


ISAU 
WASUP 
DUNLUP 
STOPIT 
BEEMAX 
PEAPLUS 
DOSUP 
UNSTACK 


REFRAD 


STARTADD 
MULTSEL. 
OIVSEL 
ELM 

ELM1 
COMBACK 


WEEOOUT? 
WEEDOUT3 
WEEDOUTY 
COMBACKIL 
WEEDOUTS 
WEEDOUTL 
WEEDOUT 

COMBACKe 


TRY1 
TRY2 


STATEMENT 


OO*BIEN 
OO*SWAI+S 
00*PORTE 
O0*PORTEW1 
34*LOKtS 


OO*KUP 
000000 
000000 
205640 
120011 
OO*SMEAL@1 
RJP*SUPEREG 
OO*BANDIT 


S4*REJECTS 
SKP*00 
OO*CONTBAST 
25*COMBINE 
27*COMBINE 
12*POSZERO 
S4*ELM2 
SY*CHEZ “3S 


S4* CHEZ tI 
SY*CHEZe2 
S4*CHEZ1+1 
S4*CHEZ1=3 


SUeCHEZ1+4 


SY*CHEZ1+7 
S4Y*CHEZT6 
SYU*CHE Ze 


1S*J0Y 
LIS*RITA 


PAGE 


ADDRESS 


04642 
04643 
04644 
04645 
04646 


04647 
04650 
04651 
04652 
04653 
04654 
04655 
04656 


04657 
04660 
04661 
04662 
04663 
04664 
04665 
04666 


04667 
04670 
04671 
04672 
04673 
04674 
04675 
04676 


04677 
04700 


0N69 
INSTRUCT 
00 2236 
00 2235 
00 2246 
00 2245 
534 4653 
00 1251 
000000 
~0000Nn0 
505640 
120011 
00 1237 
76 2266 © 
00 2403 
34 2374 
5050 90 
00 0706 
25 4537 
27 4537 
12 4510 
34% 1260 
34 0745 
34 0751 
34 0777 
34 0766 
34 0762 
34% O771 
34 0774 
34 0756 
34 0777 
15 4623 


15 5315 


C8-V 


SEQNO 


004124 
004125 
004126 
00%127 
004130 


004131 
004132 
0041335 
004134 
004135 
004136 
004137 


(004140 


OO814)1 
004142 
004143 
004144 
008145 
004146 
004147 
004150 


004151 
004152 
0041535 
004154 
004155 
004156 
004157 
004160 


004161 
004162 


LABEL 


TRYS 
TRY4Y 
TRYS 
TRY6 
TRY? 


TRY1O 
TRY11 
TRYL2 
TRY13 
TRY14 
FUNO2 
FUNOS3 
FUNO6 


FUNO7 
FUNIO 
FUN11 
FUN1S 
FUNL7 
FUN21 
FUN23 
FUN&6 


FUN4Y7 
FUN61 
FUN63 
FUN65 
HOT1 
HOT2 
HOTS 
HOT4 


HOTS 


HOT? 


STATEMENT 


17*J0Y 
17*RITA 
21*J0Y 


—21*RITA 
 235*J0Y 


23*RITA 
I5*LQUISE 
17*LOQUISE 


21*LOUISE 


234*LQUISE 
O2*KAY 
O3*KAY 
O6*KAY 


O7*KAY 
10*PARI 
L1*PARI 
15*PATI 
17*DIT46 
21¥*PATI 
23*O01T46 
“O*ELZA 


4Y7*ELZA 
61* JACKIE 
63*REBECA 
65*LOKt2 
34 *ANN 
S4*EL ANE 
S4*HELEN 
S4* JENNIE 


S4*SUE 
S4*JNYCE 


PAGE 


ADDRESS 


04701 
04702 
04703 
04704 
04705 


04706 
04707 
04710 
O4711 
04712 
04713 
04714 
04715 


04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 


04726 
04727 
04730 
04731 
04732 
04733 
04734 
04735 


04736 
04737 


0070 


INSTRUCT 


17 
17 
2i 
21 
235 


235 


15 


17 
21 
23 
02 
03 
06 


07 
10 
11 
15 
17 
21 
23 
46 


47 
61 
635 
65 
34 
34 
34 
34 


34 
34 


4AH23 
S315 
4623 
S315 
4623 


9315 
W426 
8426 
W426 
GH26 
5016 
5016 
5016 


5016 
5066 
5066 
4420 
G16 
Gu20 
G4ul6 
4620 


4620 
4624 
4627 
4733 
3556 
3536 
3634 
3667 


3712 
3740 


E8-F 


SEQNO 


004163 
GO4164 
OO4165 
004166 
004167 


004170 
004171 
OOK1L72 
004173 
OO8174 
OO4L7S 
004176 
OO4L77 


004208 
004201 
OO4202 
004203 
OO4204 
094205 
004206 
GOK207 


004210 
004211 
vO4212 
004213 
004214 
004215 
004216 
004217 


VO422U 
004221 


LABEL 


HOT10 
HOT11 
HOT13 
HOT14 
HOTL5 


HOT17 
HOT23 
HOT24 
HOT25 
HOT27 
HOT30 
HOTS31 
HOT32 


HOT33 
HOT34 
HOT35 
HOT36 
HOT37 
HOT4O 
HOT46 
HOT47 


HOTSO 
HOTS1 
HOTS2 
HOTSS 
HOTSS 
HOTS6 
HOTS7 
HOT60 


HOT61 
HOT62 


STATEMENT 


SYH*¥ALICE 
34 *BARB 
S4*LORANE 
34*SHERRY 
904722 


34 *C INDY 


S4*XTERRY 
S4*LEANN 
S4¥*LOKI 
S4U*SHELIA 
S4*BETH 
34 * BECKY 
54 *SANDY 


S4H*RETTY 
S4H*LITZ 
S4*PAT 
S4*ENDI 
S4*END?) 
S4YFENDS 
SYH*FSUSAN 
JP*TINAtTY 


S4*GAYLE 
SS*VERA 
S4* JANE 
S4*STOPIE 
SY*RETTY 
S4*DOQOTTIE 
SY*PAT 
S4*R2EBECA 


O6*ELZA 
O7*ELZA 


PAGE 


ADDRESS 


04740 
04741 
04742 
04743 


04744 


04745 
04746 
04747 
04750 
04751 
04752 
04753 


04754 


04755 
04756 
04757 
04760 
04761 
04762 
04763 
04764 


04765 
04766 
04767 
04770 
04771 
04772 
04773 
04774 


04775 
04776 


0071 


INSTRUCT 


34 3730 
54 3767 
34 4016 
34 4ON6 

504722 


34 3757 
34 44S 
34 4033 
34 4260 
34 4074 
34 4062 
34 4122 
34 411d 


34 4155 
34 4137 
34 4207 
34 4350 
34 435) 
34 4352 
34 43n4 
34 4244 


34 4320 
34 4636 | 
34 4216 
34 4354 
34 4155 
34 4161. 
34 4207 
34 4627 


06 4620 
07 4690 


v8-7 


SEQNO 


004222 
004223 
004224 
004225 
004226 


004227 


004230 
004231 
004232 
004233 
004234 
004235 
004236 


004237 
004240 
004241 
004242 
004243 
004244 
vo424s 
004246 


004247 
004250 
004251 
004252 
004255 
004254 
004255 
004256 


004257 
004260 


LABEL 


HOT63 
HOT64 
HOT65 
HOTO7 
HOT70 


HOT71 
HOT72 
HOT73 
HOT74 
HOT75 
HOT76 
HOT77 
HOT1OO 


HOT101 
HOTIO2 
KAY 
DIT3S1 
DIT1 


DIT6 


DIT14 
DIT12 
DIT27 


DIT16 


ZEROUNE 


DIT32 


34* JACKIE 
34*LUCILE 
34U*LINDA 
LO*RITA 
11*RITA 


S4* ENDS. 


504702 


34*DENICE 
12*RITA 


L2*KAY 


12*ROSIE 
S4*LILY2ts 
UG*ELZA 


H4U*GAIL 
47*GATL 


000007 
272727 
757575 
000177 
017777 
000277 


770177 
000077 
202000 
000060 
777700 
010001 
000001 
173717 


125456 
694321 


PAGE 


ADDRESS 


04777 
05000 
05001 
05002 


05003 


05004 
05005 
05006 
05007 
05010 
05011 
05012 
05013 


05014 
05015 
05016 
05017 
05020 
05021 
05022 
05023 


05024 
05025 
05026 
05027 


—6 050350 


05031 
05052 
050353 


05034 
05035 


0072 


INSTRUCT 


34 
34 
34 
10 
11 


34 


34 
12 
12 
12 
34 
Ky 


G4 
47 


G624 
8246 
S614 
9315 
S315 


4353 
504702 
4224 
5315 
5016 
5155 
(4203 
4620 


G&621 

4621 
000097 
272727 
T57575 
000177 
017777 
000277 


770177 
000077 
202000 
000060 
777700 
O100N1 
o000n! 
173717 


123456 
654321 


G8-F 


SEQNO 


004261 
004262 
004263 
004264 


004265 


004266 
004267 
004270 
004271 
004272 
004273 
004274 
OO04ET75 


004276 
004277 
004300 
004301 
004302 
004303 
004304 
004305 


004306 
004307 
004310 
004311 
004312 
004313 
004314 
OO431L5 


U04316 
004317 


LABEL 


PAT2 


PAR2 


ZEROSIX 


PAIR 


ZEROSEVEN 


DIT20 


PAT1O 


PARI 


SEPTZERO 


PAR25 


125456 
123456 
125456 
123456 


(123456 — 


000002 
000002 
000002 
000004 
000001 
000006 
000004 
000004 


077777 
077777 
010100 
000004 
077777 
326152 
526132 
000013 


676767. 
001311 


430013 
777777 
707070 
050005 
757577 
333333 


4E4OKY 
616161 


PAGE 


ADDRESS 


050356 
05037 
05040 
05041 
05042 


05043 
05044 
05045 
05046 
05047 
05050 
05051 
05052 


05053 
05054 
05055 
05056 
05057 
05060 
05061 
05062 


05063 


05064 
05065 
05066 
05067 
05070 
05071 


05072 


05073 
05074 


0073 


INSTRIICT 


123456 
123456 
123456 
123456 
123456 


o000ne2 
000002 
000002 
o00nn4 
000001 
000006 
oo00n4 
000004 


077777 
077777 


010100 


000004 
077777 
326132 
526132 
000013 


676767 
001311 
&30013 
T77777 
707070 
050005 
757577 
333333 


GU4u4y 
616161 


98-P 


SEQNO 


004320 
004321 
004322 
004325 
004324 


004325 
004326 
004327 
004330 
004331 
0043532 
0043355 
0043354 


004335 
004336 
004337 
004340 
004341 
004342 
004343 
004344 


004345 
004346 
004347 
004350 
004351 
00435e 
004355 
004354 


004355 
004356 


LABEL 


DITS2 
BOM25 


SIXZERO 


PATR2 


DUALSEV 


SEVSEV 
BOM17 


616161 
000100 
000001 
020000 
007700 


007700 
200000 
200000 
006000 
600000 
400000 
000077 
000077 


000077 
000303 
000303 
000203 
000203 
125456 
654321 
1235456 


654321 
6543eal 


000000 


654321 
767476 
123456 
375737 
654321 


125456 
125456 


PAGE 


ADDRESS 


05075 
05076 
05077 
05100 
05101 


05102 
05103 
05104 
05105 
05106 
05107 
05110 
05111 


05112 
05113 
05114 
05115 
05116 
05117 
05120 
05121 


05122 


05123 


05124 
05125 
05126 
05127 
05150 
05131 


05132 
05133 


0074 


INSTRUCT 


616161 
000100 
oo00n0nl1 
020000 
007700 


007700 
200000 
200000 
006900 


. 600000 


400000 
000077 


000077 


000077 
000303 
000303 
000203 
000203 
123456 
654321 
123456 


654321 
654321 
000000 
654321 
767676 
123456 
373737 
654321 


123456 
123456 


L8~? 


SEQNO 


004357 
004360 
004361 
004362 
004365 


004364 
004365 
004366 
004367 
004370 
004371 
004372 
004373 


004374 
004375 
004376 
004377 
0U4400 
OO44O)] 
004402 
OO44QS 


OOK4OY4 
004405 
004406 
004407 
004410 
004411 
004412 
OO44135 


004414 
004415 


LABEL 


POS3 
DIT7 


POS1 
PENNY 


ZEROTROIS 


SCOR4 


ROSIE 


STATEMENT 


125456 
123456 
125456 
654321 
OO*TINATIL 


242424 
010000 
OO*TINAtI 
000005 
000006 
000003 
000003 
000003 


000003 
770002 
000203 
12*SUM1t+15 
504702 
13*DITS1 
S4*PATTIE 
S2*DITS 


S4U*PATTIE 
33*DITS 
S4U*¥PATTIE 
360077 
S4*PATTIE 
370060 
707700 
507202 


440001 


JS5*ROBIN 


PAGE 


~ ADDRESS 


05154 
05135 
05136 
05157 
05140 


05141 
05142 
05143 
05144 
05145 
05146 
05147 
05150 


05151 
05152 
05153 


05154 


05155 


05156 > 


05157 
05160 


05161 


05162 
05163 
05164 
05165 
05166 
05167 
05179 


05171 
05172 


0075 


INSTRUCT 


123456 
1235456 
125456 
654321 
00 4eKnt 


242424 
0100N0 
00 4241 
000005 
000006 
000003 
000nN3 
000003 


000003 
770002 
000203 
12 =5471 
904702 
15 5017 
34 4301 
32 5320 


34 4301 
33 5322 
34 4301 
360077 
3% 4301 
370060 
707700 
507292 


440091 
35 4311 


88-7 


SEQNO 


004416 
004417 
004420 
O044e2l 
G0442e 


0044235 
o044es 
004425 
004426 
004427 
004430 
004431 
004432 


004433 
004434 
004435 
004436 
004437 
OO844HD 
OO444) 
OU44k!]) 


004443 
008444 
004445 
OO4446 
004447 
004450 
O04451 
004452 


GO4455 


004454 


LABEL 


PAGE 


STATEMENT Ys ADDRESS 
907201 05173 
SS*ROBIN 05174 
UO*KAY 05175 
GW1*KAY 05176 
U2F*KAY 05177 
US*KAY 05200 
US*KAY 05201 
T2*KAY 05202 
THFKAY 05203 
TS*KAY 05204 
L4*PATI 05205, 
16*PATS 05206 
24*PAT2 05207 
25*PAT2? 05210 
26FDITT44 05211 
3S4UF*FAYE 05212 
505200 05213 
505200 05214 
27*DITT44 05215 
S4*FAYE 05216 
505300 05217 
§05300 05220 
710013 05221 

~§06000 05222 
O4*DIT24 05223 
O5*01T25 05224 
51*PARI 05225 
S2* DEAN 05226 
S3*TEAN 05227 
506100 05230 
506200 05231 


0076 
INSTRUCT 
507201 
35 4311 
0 5016 
&1 5016 
42 5016 
43 5016 
4S 5016 
72 5016 
74 5016 
75 «S016 
14 4420 
16 4422 
24 S543 
25 5043 
26 5426 
34 4276 
505200 
505200 
27 5426 
34 4O7TE 
505300 
505300 
710013 
306000 
04 5440 
05 5441 
51 5066 
52 444) 
53 4444 
906190 


506200 


68~-7 


SEQNO 


004455 
004456 
004457 
004460 
004461 


004462 
004463 
004464 
004465 
004466 
004467 
004470 
GCO8471 


004472 
GO4473 
004474 
OO4475 
004476 
OO4477 
004500 
004501 


004502 
004505 
004504 
V04505 
004506 
G04507 
004510 
VO451I1 


VO451e2 
004513 


STATEMENT 


34*F AYE 
906300 
S4*FAYE 
904106 
S4Y*FAYE 


904202 
504303 
S4H*FAYE 
504422 
SYU*FAYE 
504506 
SY*FAYVE 
904606 


904706 
S4*F AYE 
905400 
505400 
905500 
905500 
505020 
505003 


505700 
60*ROBIN 


60*ROBINt1 


62*ROBIN 


62*ROBINL 


64*ROBIN 


O4¥¥*ROBING] 


66*ROBIN 


| G6E¥ROBINIL 


67*ROBIN 


PAGE 


ADDRESS 


05232 
05233 
05234 
05255 


— 05236 


05257 
05240 
05241 
05242 
05243 
05244 
05245 
05246 


05247 
05250 
05251 
05252 
05253 
05254 
05255 
05256 


05257 


—05260 


05261 
05262 
05263 
05264 
05265 
05266 


05267 
0527 


0077 


INSTRUCT 


34 4276 
506300 
34 4276 
504106 
34 4276 


504202 
504303 
34 4276 
504422 
34 4276 
504506 
34 4276 
504606 


504706 
34 4276 
505490 
505400 
505590 
505500 
505020 
905093 


505700 
60 4311 
60 4312 
62 4311 
62 4312 
64 4311 
64 4312 
66 4311 


66 4312 
67 4311 


06-7 


SEQNO 


G04514 
004515 
004516 
004517 
004520 


004521 


~—6008S22 


004523 
004524 
004525 
004526 
004527 
004530 


004531 
00453e 
004533 
004534 
004535 
004536 
004537 
004540 


004541 
O0454e 
004543 
004544 
004545 
004546 
004547 
GO4¥55U 


004551 
004552 


LABEL 


RITA 
DIT23 
DIiTe 
DITS 
DIT10 
DITS 
DIT26 


TZERFSEV 


DIT30 
PAR6 


STATEMENT 


67*ROBINeL 
56*PARSO 
56*PATL 
S7*PARSO 
S7* JIM 


TS*ROBINGL 


30*CHER 
OS*LOIS 
T6*HAYLEY 
S1*CHER 
20*PATIL 
S4H*FAYE 
22*DU00NE 


GH FFAYE 


505100 
505100 
S4¥*LILY 
507302 
S4*DINA 
OBLSET 
000000 


000001 
017701 
575757 
000177 
027777 
000277 
250525 
007777 


030303 
000060 


PAGE 


ADDRESS 


05271 
05272 
05273 
05274 
05275 


05276 
05277 
05300 
05501 
05302 
05303 
05304 
05505 


05306 
05307 
05310 
05311 
05312 


05313 


05314 


05315 
05316 
05317 
05320 
053521 
05322 
05323 
05324 


05325 
05326 


0078 


INSTRUCT 


67 
56 
56 
57 
57 


73 


30 


55 
76 
31 
20 
34 
22 


34 


34 


34 


4312 
4511 
Qu20 
4511 
4622 


4312 
4266 
“O73 
4274 
4266 
4420 
4276 
Guy 


4276 
505100 
505100 

4315 
507302 

4327 


000000 


ooonnN1 
017701 
575757 
000177 
027777 
000277 
250525 
007777 


030303 
000N60 


16-7 


SEQNO 


004553 
004554 
004555 
004556 
004557 


004560 
004561 
004562 
004563 
004564 
004565 
004566 
004567 


004570 


V04571 
004572 
004573 
004574 
004575 
004576 
004577 


004600 
004601 
004602 
V04605 
004604 
004605 
004606 
004607 


U04610 
OU46H11 


LABEL 


OIT17 


DIT33 


DIT3S4 


SOOT 
DIT36 


DIT21 
DIT4y 
DIT41 
DIT4e2 


PAR11 
DITI11 


DIT13 
DITSo 


007700 
010001 
000001 
152213 
123456 


125456 
000000 
000000 
000000 
000000 
T4747y 
000001 
000077 


000000 
000003 
000004 
000003 
000002 
377777 
142425 
000000 


010100 
377777 
325232 
326132 
613131 
000000 
676767 
007777 


770077 


027702 


PAGE 


ADDRESS 


05327 
05330 
05351 
05332 
05333 


05334 
05335 
05336 
05337 
05340 
05341 
05342 
05343 


05344 
05345 
05346 
05347 
05350 
05351 
05352 
05353 


05354 
05355 
05356 
053557 
05360 
05361 
05362 
05363 


05564 
05365 


0079 


INSTRUCT 


007700 
010001 
000001 
132213 
123456 


123456 
000000 
000000 
0000900 
000000 
THTETY 
oo00nnl 
000077 


000990 
000003 
000004 
0000903 
oo0nne 
377777 
142425 
000000 


010190 
377777 © 
323232 
5326132 
613131 
000090 
6767657 
007777 


T7TO977 
027702 


C6-P 


SEQNO 


004612 
004613 
004614 
004615 
004616 


004617 
004620 
004621 
004622 
004623 
004624 
004625 
004626 


004627 


UO4HO30 
004651 
004632 
004635 
004634 
004635 
004636 


004637 
004640 
004641 
004642 
004645 
OO4644 
004645 
004646 


004647 
004656 


LABEL 


PAR13 
DITSS 
DITS1 
PARS 
ADDE 


PAR25 
TONF I 
DIT4 

PAT12 
PAR23 


PARDS2 
BOM30 


LOOT 
NOOT 
BEAN 


BOM20 


PARIS 


737373 
020002 
020200 
335333 
955555 


161616 


—6 250000 


000100 
000021 
100000 
077000 
377777 
000100 


772000 
006000 
125456 
004000 
770000 
125456 
000703 
000303 


000503 
000203 
65432] 


123456 


654321 
000000 
654321 
123456 


Q000000 
123456 


PAGE 


ADDRESS 


05366 
05367 
05370 
05371 
05372 


05373 


05374 


05375 
05376 
05377 
05400 
05401 
05402 


05403 
05404 
05405 
05406 
05407 
05410 
05411 
05412 


05413 
05414 
05415 
05416 
05417 
05420 
05421 
05422 


05423 
O5424 


0080 


INSTRUCT 


737373 
020NNe 
0202N0 
333333 
555555 


161616 
250090 
000100 
000021 
10000 
077000 
377777 
0001900 


772000 
006000 
123456 
004990. 
7700N0 
123456 
000703 
000393 


000503 
0002N3 
654321 
123456 
654321 
000000 
654321 
123456 


000090 
123456 


€6-P 


SE QNO 


OO4¥651 
004652 
004653 
004654 
004655 


004656 
004657 
004660 
004661 
004662 
004663 
004664 
004665 


004666 
004667 
004670 
004671 
004672 
004673 
004674 
004675 


004676 
004677 
004700 
004701 
004702 
004703 
004704 
004705 


004706 
004707 


LABEL 


PAR37 
DIT44 
PARS4 
PAR70 


NIp 


DIT60 
DIT24 
DIT25 


SIP 
GIP 


SCOR1I 
SCORS 


SCOR6 
SCOR7 


SUM1 
SUM2 
SUM3 
SUMY 
SUM5 
SUM6 


SUM? 
SUM1O 


767676 
677777 
373737 
777773 


123456 


654321 
123456 
400000 
123456 
654321 
600000 
511311 
431113 


SO0001 
000003 
935333 
000004 
420052 
400002 
222222 
000303 


000203 


00*SUM1 


000000 
000000 
000000 
000000 
000000 
000000 


000000 


000000 


PAGE 


ADDRESS 


05425 
05426 
05427 
05430 
05431 


054352 
05433 
05434 
05435 


05436 


05457 
05440 
05441 


05442 
05443 
05444 
05445 
05446 
05447 
05450 
05451 


05452 
05453 
05454 
05455 
05456 
05457 
05460 
05461 


05462 
05463 


0081 


INSTRUCT 


767676 
677777 
373737 
777773 
123456 


654321 
123456 
GO00NN0 
123456 
654321 


600000 


511311 
431113 


300001 
000003 
533333 
000004 
820052 
&000N2 
222222 
000303 


000203 

5454 
000090 
000090 
0000900 
000000 
000090 
000090 


000090 
090090 





v6-7 


SEQNO 


004710 
004711 
OO471e2 
004713 
004714 


004715 
004716 
004717 
004720 
004721 
004722 
004723 
OO8724 


004725 
004726 
004727 
004730 
004731 
004732 
004733 
004734 


004735 
004736 
004737 
004740 
VO4741 
004742 


LABEL 


SUM11 
SUML2 
SUM13 
SUM14 
SUML5 


SUM16 
$30 
$$1 
$S2 
$S3 
S54 
$$5 
SS6 


ZPACS 


RESERV*O1 


STATEMENT 


000000 
000000 
000000 
000000 
000000 


000000 
000001 
000002 
QVOO004K 
000010 
000020 
000040 
000100 


0*0 ENTRY 
ENTICR*O2 
ENTSR*00 
ENTALK*2000 
LSHAL*05 
RXL 
RIL*900 
STOP*4&0 


SELECT MTU LOAD ROUTINE 
CLEAR SR REG 
SELECT LOGICAL TAPE 
TRANSPORT 1(SAME AS BOOTSTRAP) 


STOP TO SELECT BLOCK 


REMARK*SET SR TO THE NUMBER OF BLOCKS TO BE 
REMARK*SKIPPEQD BEFORE READINGe 1 IF MEMe 2 IF I/O 
JP*6001 JP*START=BEGIN MTU READ 

RESERV*7776 INSURE THAT LOGIC/ARITH INPUT 

CwS DETECT ALL LOAD FAILURES 

ENOSEG 


END OF PROGRAM 


PAGE 


ADDRESS 


05464 
05465 
05466 
05467 
05470 


05471 
05472 
05473 
05474 
05475 


05476 


05477 


05500 


05501 
05502 
05503 
05504 
05505 
05506 
05507 
05510 


05511 
05512 
15510 


0982 


INSTRUCT 


oo000n0 
000090 
000990 
o000n0n0 
000000 


000090 
o000n1 
000092 
000004 
on00010 
000020 
C0004) 
000100 


onno 


2072 02 
5073 0 


CANO 


5046 05 
5032 90 
5030 no 
5056 40 


54 6001 


o000ND 
o00nnd 


G6-P 


SEQNO 


VUOQU0 
000001 
000002 


000003 
000004 
000005 
000006 
000007 
000010 
o00011 
VOO0O1e 


000015 
000014 
VOO001S 
000016 


000017. 


v00020 
000021 
Q0002e 


000023 
000024 
000025 
000026 
000027 
000030 
000031 
00003e 


000036 
000034 


LABEL 


MEDIA 


MEDIA 


MEDIA 


* & He & * 


e+ HHH & 


EXECI 


STATEMENT 


CONTR* JOHNSON 
ALLOC 
001000 


OUTPUT*5¥*12 
PROG*JOHNSON 
P SEG 

STL «9 
ENTSR*00 
ENTAU*NOOO0000 
ENTAL¥*NO00000 
SKP*01 


JP*LOKt2 
JP*EXEC? 


STOP*40 


RUP*PARAMETER 
JP*EXEC2 


ENTAU*N000000 


ENTAL*NOQO0000 


LOCK OUT ALL INTERRUPTS. 


SET SKIP KEY 0 TO BYPASS 


PARAMETER STOP (MAIN MEMORY 
32K AND CONTROL MEMORY 128 
WORDS). 

PARAMETER STOP 

IF 128 woORDS OF CONTROL MEMORY 
LEAVE THE AU REGISTER CLEARED. 

IF 256 wORDS OF CONTROL MEMORY 
SET THE AU REGISTER TO ANY 


NONZERO VALUE. | 
SET THE AL REGISTER TO THE NUMBER 
- OF STACKS IN MEMORY. FOR 

EXAMPLE» FOR A 16K MEMORY SET 

AL TO 000004. 

CHECK AND STORE PARAMETERS. 
BYPASS THE RECYCLE STOP THE 
FIRST TIME THE PROGRAM IS RUNe 


CLEAR AU 
CLEAR AL 


PAGE 


ADDRESS 


00000 
010090 
01001 
01002 
01003 
01004 


01005 
01006 


01007 


01010 
01011 


01012 
01013 


OOn1 
INSTRUCT 
5047 0 
5034 Ag 
5073 90 
10 42366 
12 4366 
5050 1 
34 10N7 
34 120 
5056 40 
76 1974 
34 1020 
10 4366 
12 4366 


- 96-F 


SEQNO 


000035 
000036 
000037 
000040 
000041 


VOOC4e 
000045 
000044 
000045 
VOO04E 
000047 
000050 
000051 


000052 
YV00055 
000054 
000055 
000056 
000057 
000060 
000061 


00006e 
0000635 
000064 
v00065 
000066 
000067 
000070 
000071 


vO007e2 
000073 


LABEL 


EXEC2 
* 


STATEMENT 


STOP*02 
SKP*22 


JP*EXEC? 
JP*0500 


SIL*0 


ENTAL*LOWEXEC 
STRAL*RECYCLE 


LSHAL*00 
RJP*CONTROL 
RUP*BOOT 


ENTAU*LOWLIMIT 
ENTAL*UPLIMIT 
RJP*xMAIN 
ENTAU*NOO0002 
ENTALK*0277 
RJP*MAIN 
ENTAU*NO00300 
ENTAL*NO00477 


RUP*MAIN 
ENTAU*NO00540 


ENTAL*NOO00577 


RJUP*MAIN 
ENTAU*CONTSIZE 


JPAUNZ*¥EXEC3 


ENTAY*NO00400 
ENTAL*NO004%77 


END OF TEST (RECYCLE) STOP. 

SET SKIP KEY 1+4 TO REFERENCE 
SOOTSTRAP. 

RECYCLE THE MEMORY TEST. 

REFERENCE BOOTSTRAP. 


MAKE SURE INTER®SUPT ARE STILL 
LOCKED QUT. 

SET UP FOR MEMORY TEST RECYCLE 
AFTER ERROR ISOLATION. 
PROGRAM LOCATED IN STACK O00-¢ 

NOOP SINOTMAIN 

TEST THE CONTROL MEMORY. 

TEST THE BOOTSTRAP MEMORY, 


TEST MAIN MEMORY FROM JUST ABOVE 
THE PROGRAM IN STACK 00 TO THE 
HIGHEST ADDRESS IN MEMORY. 

TEST ADDRESSES 900100 THROUGH 

000177 OF MAIN MEMORY 


TEST ADDRESSES 000300 THROUGH 
000377 OF MAIN MEMORY 


TEST ADDRESSES 000540 THROUGH 
000577 OF MAIN MEMORY. 


ARE THERE 256 WORDS OF CONTROL 
MEMORY? 

YES» GO MOVE THE PROGRAM TO 
STACK Ol. 


NOe TEST ADDRESSES 000400 
THROUGH 000477 QF MAIN MEMORY. 


PAGE 


ADDRESS 


11014 
01015 


01016 
01017 


01020 


01021 
01022 


01023 
01024 
01025 


01026 
01027 
01030 
01031 
01032 
01033 
01034 
01035 


01036 
01037 
01040 
01041 
01042 


01043 


01044 
01045 


One 
INSTRUCT | 
5056 2 
5050 ?2 
34 1720 
34 O5nN0 
5034 90 
12 4°57 
UY OTS 
5046 0 
76 3233 
76 3572 
10 4260 
12 44305 
76 11246 
10 4370 
70 0277 
76 1124 
10 4493 
12 4ulo 
76 1124 
10 44l2 
12 4413 
76 1124 
10 4227 
62 1052 
10 4un7 
12 4410 


L6-7 


SEQNO 


000074 
000075 
000076 
000077 
000100 


000101 
000102 
000105 
000104 
000105 
000106 


000107 


000110 


000111 
0001le 
000115 
000114 
000115 
000116 
000117 
000120 


000121 
000122 
000125 
000124 
000125 
000126 
000127 
000130 


000131 
000132 


LABEL 


EXECS 


UP 


EXECY 


EXECS 


STATEMENT 


RUP*MAIN 
ENTAU*NO005D40 
ENTAL*NO00677 
RJUP*MAIN 
ENTAU*ESR10 


ENTAL*ESR1I1 
RUP*MOVE 
IJP*UP 


O*EXEC4*+010000. 


ENTAL*UPEXEC 
STRAL*RECYCLE 


ENTAU*NO00540 
ENTAL*LOWLIMIT 
RJUP*MAIN 
ENTAU*ESR11 
ENTAL*ESR10 
RJP*MOVE 


IUP*DOWN 


O*EXECG 
SKP*04 


RJP*XSTACK 


AND TEST ADDRESSES 000600 
THROUGH 000677 OF MAIN MEMORY. 


MOVE THE PROGRAM FROM STACK 00 
TO STACK Ole 


TRANSFER CONTROL TO THE PROGRAM 
NOW STORED IN STACK Ole 


SET UP FOR MEMORY TEST RECYCLE 


AFTER ERROR ISOLATION.’ 
PROGRAM LOCATED IN STACK Ole 

TEST THE ADDRESSES THE PROGRAM 
WAS STORED IN STACK 00+ 


MOVE THE PROGRAM FROM STACK 01 
TO STACK 00-4 


TRANSFER CONTROL TO THE PROGRAM 
NOW STORED IN STACK O0- 


IGNORE XSTACK IF MAIN MEMORY 
ISOLATION IS BEING BYPASSED 
CHECK FOR FAILURES THAT CAUSE 


NONEXISTENT ADDRESSES TO 
REFERENCE EXISTING LOCATIONS- 


PAGE 


ADDRESS 


01046 
01047 
01050 
01051 
01052 


01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 


01070 
01071 


01072 


0nN3 


INSTRUCT 


76 
10 
12 
76 
10 


12 
76 
55 


12 
Gy 


10 
12 
76 
10 
12 
76 


55 


76 


1124 
4U12 
Q415 
1124 
4242 


4O43 
1111 
1056 


011057 


4304 
4275 


G4ul2 
4260 
1124 
G245 
WOU? 
1111 


1070 


001072 
5050 


04 


G11 


86-P 


SEQNO 


000135 
000134 
000135 


000136 


000137 
000140 
000141 
000142 
000143 
000144 
000145 
000146 


000147 
000150 
000151 
000152 
000155 
000154 


000155 — 


000156 


000157 
000160 
000161 
v00162 
000163 
000164 
000165 
000166 


000167 
000170 


ok 
* 


*x 


PARAMETER 


x 


* 


% * 


LABEL 


STATEMENT 


JP*EXECI 


0 
CMAL*NOO0002 


JPMGR*MEDIA 
CMAL*N000021 
JPMLEQ*MEDIA 


STRAU*CONTSIZE 


ADDALK*7776 
STRAL*HNS 


LSHAL#*14 > 
STRAL *HNSX 


SLSET*N007777 


STRAL*UPLIMIT — 


IUP*PARAMETER 


PAGE 
ADDRESS 
THE PROGRAM DETECTION SECTION 


HAS RUN ONCE WITHOUT A FAILURE 
BEING DETECTED (MEMORY VERIFIED) 


01073 


GO TO THE RECYCLE STOP- 


THE MOVE SUBROUTINE IS USED TO MOVE THE PROGRAM FROM ONE 
STACK TO ANOTHER. 


MOVE 


0 


oe 01074 

WAS THE MEMORY SIZE SPECIFIED 01075 
LESS THAN 8K? 

YES» RETURN TO SET PARAMETERS 01076. 
STOP. 

WAS THE MEMORY SIZE SPECIFIED 01077 
GREATER THAN 65K? 

YES» RETURN TO SET PARAMETERS 01100 
STOP. 

NOe STORE CONTROL MEMORY SIZE 01101 
PARAMETER. 

SUBTRACT ONE FROM THE NUMBER OF 01102 
STACKS TO FORM THE HIGHEST 01103 
NUMBERED STACKe 

3 01104 

USED TO INDICATE THE MEMORY SIZE 01105 
IN DISPLAYS. 

| | 01106 

THE HIGHEST EXISTING ADDRESS IN 01107 
MAIN MEMORY. | 

EXIT PARAMETER SUBROUTINE. O1110 

O1111 


0004 


INSTRUCT 


34 1012 


000000 
02 4370 


67 1000 
02 4376 


65 1000 


46 4227 


71 7776 
G4 &250 


5046 14 
44 4251 
Si 4423 
44 4305 


55 1074 


000NN0 


66-7 


SEQNO 


UVV0O171 
000172 
000173 
QVOO174 
000175 


000176 
000177 
VV0200 
000201 
000202 
000203 
000204 


000205 
VO02U6 
000207 
YO0210 
000211 
000212 
000215 
000214 


V00215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 


000225 


000226 


LABEL 


MOVE1 


MOVE2 
* 


+ tte & He 


MAIN. 


STATEMENT 


STRAU*MOVE1 
STRAL*MOVE2 
ENTRB*PROGSIZE 
ENTSR*00 
ENTAUB*MEDIA 
ENTSR*Q0 
STRAUB*MEDIA 
BUP*MOVE] 
ENTSR*00 
ITUP*MOVE 


IS A SUBROUTINE 


BY LIMITS CONTAINED 
WHEN MAIN IS ENTER. 


5 


STRAU*BEGINNING 


STRAL*TERMINAL 
RJP*ALLONES 
RJUP*ALLZEROS 
ENTAL*PARITYEVN 
RIP*wORSTPTTN 


ENTAL*PARITYODOD | 


PRESTORE THE ENTER SR 
INSTRUCTIONS- 

NUMBER OF INSTRUCTIONS TO BE 
MOVED. | 

STACK THE PROGRAM IS BEING MOVED 


FROMe 


STACK THE PROGRAM IS BEING MOVED 
TO6 


IS THE MOVE COMPLETE? 
NOe GO MOVE THE NEXT INSTRUCTION’ 


YESe DEACTIVATE SR- 
EXIT THE MOVE SUBROUTINE es 


THAT CONTROL THE TESTING 
OF A BLOCK OF ADDRESSES IN MAIN MEMORY SPECIFIED 
IN THE AU AND AL REGISTERS 


STORE THE MEMORY BLOCK LIMITSe 


(MAY BE OMITTED). 
(MAY BE OMITTED). 


TEST ADDRESS BLOCK USING THE 
SKIP ON EVEN PARITY WORST 


PATTERN. 


PAGE 


ADDRESS 


01112 
01113 
01114 


01115 


01116 
01117 


01120 


01121 


01122 
01123 


01124 
01125 
01126 
01127 
01130 
01131 
01132 


01133 


o0ns 
INSTRUCT 
46 1115 
44 1117 
32 4264 
5073 00 
11 inno 
5073 00 
47 1000 
73 1115 
5073 0 
55 1111. 
000NnNN0 
46 4226 
44 4302 
76 1220 
76 1253 
12 4262 
76 11480 
12 4263 


00T-F 


SE QNO 


000227 
000230 
000231 
GU023e 
000235 


0002354 
000235 
000236 
000237 
O0024U 
000241 
vOo24e 
000245 


Ov0244 
000245 
000246 
000247 
000250 
000251 
000252 
000255 


000254 
000255 


000256 
G00257 
000260 
000261 
GO0262 


000265 
000264 


LABEL STATEMENT 


RUP*wWORSTPTTN 


* 


RJUP*ALLONES 


RUP*ALLZEROS | 


% 


IUP*MAIN 


* eek e 


=z=xexeet& xe # 


ORSTPTIN O 
ENTICR¥1 


STRAL#*PARTYSKP1 
STRAL*PARTYSKP2 


ENTAU*PARITYMSK 


ENTB*BEGINNING 
* 


* 
WORSTI ENTSR*10 


ENTAL*0001 


PAGE 


ADDRESS 
TEST ADDRESS BLOCK USING THE 01134 
SKIP ON EVEN PARITY WORST 
PATTERN. 


TEST ALL ADDRESSES IN THE BLOCK 01135 
WITH A 777777 PATTERNe 


TEST ALL ADDRESSES IN THE BLOCK 01156 
WITH A 000000 PATTERN. 
EXIT THE MAIN SUBROUTINE 01137 


WORSTPTTN USES A wORST PATTERN TO TEST THE BLOCK OF 
ADDRESSES SPECIFIED By THE LIMITS STORED IN BEGINNING AND 
TERMINAL. THE WORST PATTERN IS DEFINED BY A PARITY MASK 
(PARITYMSK EQUALS 005415) 


WHICH IS USED TO CHECK EACH 


ADDRESS AND EITHER 000000 OR 777777 IS WRITTEN INTO IT» 
DEPENDING ON THE PARITY. 
GENERATEDe ONE BY USING SKIP ON EVEN PARITY (SKPEVN) 
INSTRUCTIONS*® AND THE OTHERe THE COMPLEMENT OF THE FIRST» 
BY USING SKIP ON ODD PARITY (SKPODD) INSTRUCTIONS. 


TwO WORST PATTERNS ARE 


01149 


ACTIVATE Ble 01141 

PRESTORE THE SELECTED PARITY 01142 
INSTRUCTION (SKPODD OR SKPEVN). 

01143 

WORST PATTERN PARITY MASK 01144 


SET THE B1 REGISTER TO THE FIRST 01145 
ADDRESS IN THE BLOCK OF 
ADDRESSES TO BE TESTED. 

SEE NOTE 1 IN APPENDIX Ac 01146 


NEXT TEST ADDRESS TO THE AL 01147 
REGISTER. | 


0006 
INSTRUCT 
76 1180 
76 1220 
76 1253 
55 1124 

000000 
5072 o1 
44 1150 
GY 1165 
10 4261 
32 4226 
5073 10 
12 OOn1 


LOT- 


SEQNO 


000265 
000266 
000267 
000270 
000271 


000272 
000278 
VU0274 
000275 
000276 
000277 
000300 
000301 


000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 


000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 


0003e¢ 
000325 


LABEL 


STATEMENT 


PARTYSKP1 SKPEVN*0 
* 


wORST2 
WORST3 


* 
* 
WORSTY 


* 


PARTYSKP2 
* 


JP*WORST2 
ENTALK*0000 


STRALB*0000 
JP*WORSTS 
ENTALK*7777 
STRALB*0000 
ENTSR*00 

BSK* TERMINAL 
JP*WORSTI 
ENT8*BEGINNING 


ENTSR¥*10 
ENTAL*0001 


SKPEVN*0 
JP*WORSTS 
ENTALB*0000 


JPALZ#*wORSTB 
SKP*04 


JP*BITSPICK 


ENTAU*U001 
ENTSR*00 


IS THE PARITY CONDITION (SKPEVN 
OR SKIPODD) SATISFIED? 

NO*e GO WRITE 777777 INTO THE 
ADDRESS. 

YESe WRITE 000000 INTO THE 


ADDRESS « 


WRITE 777777 INTO THE ADDRESS.» 
SEE NOTE 2 IN APPENDIX Ae 

IS THE WORST PATTERN COMPLETED? 
NO» WRITE IN THE NEXT ADDRESS. 
SET THE B REGISTER TO THE FIRST 


ADDRESS IN THE BLOCK OF 
ADDRESSES TO SBE TESTED. 

SEE NOTE 1 IN APPENDIX Ae 

NEXT TEST ADDRESS TO THE AL 
REGISTER. 

IS THE PARITY CONDITION (SKPEVN 
OR SKPODD) SATISFIED? 

NOe GO CHECK THE 777777 PATTERN 


DID THE 000000 PATTERN PICKUP 
BITS IN THIS ADDRESS? 

NO» GO CHECK THE NEXT ADDRESS. 

SET SKIP KEY 2 TO BYPASS 
ISOLATION ROUTINES. 

YES THE 000000 PATTERN PICKED UP 
3IT(S)»+ GO TO THE ISOLATION 
SECTION. 


SEE NOTE 2 IN ASPENDIX Ac 


PAGE 


ADDRESS 


01150 
01151 
01152 


01153 
01154 
01155 
01156 
01157 
01160 
01161 
01162 


01163 


01164 


01165 
01166 
01167 


01170 
01171 


01172 


01173 
01174 


0007 
INSTRUCT 
5055 90 
34 1155 
70 Onno 
4S 0000 
34 1157 
70 7777 
4S ono 
5073 90 
56 4302 
34 1146 
32 4226 
5073 10 
12 0001 
5055 00 
34 1200 
13 Onno 
61 1214 
5050 ny 
34 1314 
10 onn1 
5073 90 


cOT-P 


SEQNO- 


000324 
000325 
000326 
000327 


000330 


000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 


000341 
000342 
000345 
000344 
000345 
000346 
000347 
000350 


000351 
000352 
000355 
000354 
000355 
000356 
000357 
000366 


000361 
000362 


LABEL 


ee HK 


* 


WORSTS 
ra 


wORST6 
* 


*% 


Hee HH H 


WORST7 


WORSTB 


STATEMENT 


STOP*4Q 


RUP*MAINTAID 
JP*#WORST7 
ENTALB*0000 
JPALZ*WORST6 
CPAL*0 
JPALZ*wORSTS8 
SKP*04 
JP*BITSDROP 
ENTAU*0001 


ENTSR*00 
CPAL*0 


STOP *40 


RJP*MAINTAID 


ENTAU*PARITYMSK 


BSK* TERMINAL 


THE FAILING ADDRESS IS DISPLAYED 
IN THE AU REGISTER AND THE 
FAILING PATTERN IS DISPLAYED IN 
THE AL REGISTER. THE CORRECT 


PATTERN IS 000000- 


DID THE 777777 PATTERN DROP ANY 
BITS? 
YESe ALL THE BITS. GO TO wORST6- 


NO» GO CHECK THE NEXT ADDRESSe 


SET SKIP KEY 2 TO BYPASS 
ISOLATION ROUTINES 

YES THE 777777 PATTERN DROPPED 
BITS 6O TO THE ISOLATION | 
SECTION. 


SEE NOTE 2 IN APPENDIX Ae 
COMPLEMENT AL BACK TO ORIGINAL 


FAILING PATTERN. 


THE FAILING ADDRESS IS DISPLAYED 
IN THE AU REGISTER AND THE 
FAILING PATTERN IS DISPLAYED IN 
THE AL REGISTER. THE CORRECT 
PATTERN IS 7777776 


RESTORE THE PARITY MASK. 
HAVE ALL THE ADDRESSES BEEN 


PAGE 


ADDRESS | 


01175 


01176 


01177 
01200 


01201 
01202 


01203 


01204 


01205 
01206 
01207 
01210 


01211 


01212 


01213 


01214 


0008 
INSTRUCT 
5056 40 
76 1302 
34 1213 
13 0000 
61 1204 
5061 00 
61 1214 
5050 94 
34 1324 
10 0001 
5073 00 
5061 00 
5056 40 
76 1302 
10 4261 
56 4302 





S0I-% 


SEQNO 


000363 
000364 
000365 
000366 
000367 


000370 
000371 
000372 
000375 
000374 
000375 
000376 
000377 


000400 
voo4ol 
000402 
000403 


~—6000404 


000405 
000406 
000407 


000410 
000411 
000412 
000413 
OVO414 
000415 
000416 
000417 


000420 
Uv004el 


¥ 


* 
ak 
* 
* 
A 


ALLONES1 
* 


LABEL 


STATEMENT 


JP*¥WORSTY 
ENTSR*00 : 
IJP*wORSTPTTN 


CHECKED? ~ 
NO» CHECK THE NEXT ADDRESS. 
SEE NOTE 2 IN APPENDIX Ase 
YES» EXIT WORSTPAT SUBROUTINE > 


SUBROUTINE ALLONES WRITES A 777777 PATTERN INTO AND READS 


IT FROM EACH ADDRESS IN THE ADDRESS BLOCK SPECIFIED BY THE 


LIMITS STORED AT BEGINNING AND TERMINAL 


LLONES © 


0 
ENTICR*1 
ENTB*BEGINNING 


ENTSR¥*10 
ENTALK*7777 
STRALB*0000 
BSK* TERMINAL 


JP*LOK=2 


ENTSR*00 
ENTS*BEGINNING 


ENTSR*10 
ENTALB*0000 


JPALZ*¥ALLONES@ 


-CPAL*0 


JPAL Z*ALLONES3 


ACTIVATE Ble 
SET THE ACTIVE 8 REGISTER TO THE 
INITIAL ADDRESS OF THE TEST 


ADDRESS BLOCK. 


SEE NOTE 1 IN APPENDIX Ae 


STORE 777777 INTO THE ADDRESS. 

HAVE ALL THE ADDRESSES IN THE 
BLOCK BEEN WRITTEN INTO? 

NO GO WRITE 777777 INTO THE 
NEXT ADDRESS- 


SEE NOTE 1 IN APPENDIX Ac 

SET THE ACTIVE 8 REGISTER TO THE 
INITIAL ADDRESS OF THE TEST 
ADDRESS BLOCK. 

SEE NOTE 1 IN APPENDIX Ac 

DID THE 777777 PATTERN DROP ANY 
BITS. 

YES ALL OF THE RITS. 


NOe GO TEST THE NEXT ADDRESS. 


PAGE 


ADDRESS 


01215 
01216 
01217 


01220 


01221 
01222 


01225 
01224 
01225 


01226 


01227 


01230 
01231 


01232 
01233 
01254 


01235 
01236 


0009 
INSTRUCT 
34 1163 
5073 0 
55 1140 

000000 
S072 O21 
32 4226 
5073 10 
70 7777 
45 0000 
56 4392 
54 1225 
5073 00 
32 4226 
5073 10 
13) 0NNO 
61 1237 
2061 0 
61 1247 


vOI-y 


~SEQNO 


OU04K22 
G00423 
000424 
000425 
000426 


000427 
000430 
000431 
00043e 
000435 
000434 
000435 
000436 


000437 
000440 
000441 
000442 
000443 
000444 
OO0O44S 
000446 


000447 


000450 
000451 
000452 
000453 
000454 
000455 
000456 


000457 
U00460 


LABEL 


ALLUNES2? 
* 


ALLONES3 
* 


STATEMENT 


SKP*«O4 


JP*BITSOROP 


ENTAU*0001 
ENTSR*00 
CPAL*0 


STOP*40 


RJP*MAINTAID 
ENTSR*10 
BSK* TERMINAL 


JP*ALLONESL 
ENTSR*00 


TUP*ALLONES 


SET SKIP KEY 2 TO BYPASS THE 
ISOLATION ROUTINE.’ 

YES» THE 777777 PATTERN DROPPED 
DROPPED BITS? GO TO THE 
ISOLATION SECTION. 


SEE NOTE 2 IN APPENDIX Ac 
COMPLEMENT AL BACK TO ORIGINAL 
FAILING PATTERN. 


THE FAILING ADDRESS IS DISPLAYED 
IN THE AU REGISTER AND THE 
FAILING PATTERN IS DISPLAYED IN 


THE AL REGISTER. 
PATTERN IS 7777776 


THE CORECT 


SEE NOTE 1 IN APPENDIX A~ 

HAVE ALL THE ADDRESSES BEEN 
TESTED? 

NOs TEST THE NEXT ADDRESS. 

SEE NOTE 2 IN APPENDIX Aw 

YES* EXIT FROM THE ALLONES 

SUBROUTINE» 


SUBROUTINE ALLZEROS WRITES A 000090 PATTERN INTO AND 


BY THE LIMITS STORED AT BEGINNING AND TERMINAL. 


LLZEROS 


) 


ENTICR¥1 
ENT? *BEGINNING 


x 
* 
* 
* READS IT FROM EACH ADDRESS IN THE ADDRESS BLOCK SPECIFIED 
* 
* 
A 


ACTIVATE Ble 
SET THE ACTIVE 3 REGISTER TO THE 


PAGE 


ADDRESS 


01237 


01240 


01241 
01242 
01243 


01244 


01245 
01246 
01247 


01250 
01251 


01252 


01253 


01254 
01255 


Onio 


INSTRUCT 


5050 ay 


34 1224 


10 a001 
5073 00 
5061 410 


5056 40 


76 1302 
5073 10 
56 4&302 


34-1933 
5073 900 


55 1220 


900NND 


5072 O12 
32 4226 


COT-?F 


SEQNO 


000461 
000462 
000463 
000464 
000465 


VOO0466 
O00467 
000470 
000471 
000472 
000473 
000474 
000475 


000476 
v00477 
000500 
000501 
000502 
000503 
000504 
000505 


000506 
000507 
000510 
000511 
000512 
000513 
000514 
000515 


000516 
000517 


LABEL 


ALLZEROS1 
x 


etek & 


STATEMENT 


ENTSR*10 
CLB*0000 

BSK* TERMINAL 
UP*LOK=2 
ENTSR#*00 
ENTB®BEGINNING 
ENTSR*10 
ENTALB*0000 


JPALZ*ALLZEROS2 
SKP*O4 


JP*RITSPICK 


ENTAU*0001 
ENTSR*00 
STOP*4O0 


RJP*#MAINTAID 
ENTSR*10— 


INITIAL ADDRESS OF THE TEST 
ADDRESS BLOCK. 
SEE NOTE 1 IN APPENDIX Ac 
STORE 000000 INTO THE ADDRESS. 
HAVE ALL THE ADDRESSES IN THE 


BLOCK BEEN WRITTEN INTO. 

NO GO WRITE 00000 INTO THE 
NEXT ADDRESS« 

SEE NOTE 2 IN APPENDIX Aco 

SET THE ACTIVE RA REGISTER TO THE 
INITIAL ADDRESS OF THE TEST 
ADDRESS BLOCK. 

SEE NOTE 1 IN APPENDIX Ac 


DID THE 000000 PATTERN PICKUP - 
ANY BITS? 

NO* GO TEST THE NEXT ADDRESS. 

YESe SET SKIP KEY 2 TO BYPASS 
THE ISOLATION ROUTINESs 

YES* THE 000000 PATTERN PICKED 
UP BIT(S)+ GO TO THE ISOLATION 
SECTION. 


SEE NOTE 2 IN APPENDIX Aco 


THE FAILING ADDRESS IS DISPLAYED 
IN THE AU REGISTER AND THE 
FAILING PATTERN IS DISPLAYED 
IN THE AL REGISTER THE CORRECT 
PATTERN IS 0090006 


SEE NOTE 1 IN APPENDIX Ac 


PAGE 


ADDRESS 


01256 
01257 
01260 
01261 
01262 
01263 
01264 
01265 


01266 
01267 


01270 


01271 
01272 
01273 


01274 
01275 


O01! 
INSTRUCT 
5073 10 
41 0090 
56 43N2 
34 1257 
5073 0 
32 = 4226 
5073 10 
153 Onno 
61 1276 
5050 4 
54 1314 
10 Onl 
5073 90 
5056 40 
76 «1302 
5073 10 


901-F 


SEQNO 


000520 
000521 
000522 
UU05235 
000524 


000525 


000526 — 


000527 
000530 
000531 
00053e 
000535 
000554 


000535 
000536 
000537 
000540 
000541 
000542 
000545 
00544 


G00545 
OU0546 
000547 
000550 
000551 
00055e 
000553 
000554 


090555 
G00556 


LABEL 


ALLZEROS2 BSK*TERMINAL 
* 


ITSPICK 


STATEMENT 


HAVE ALL THE ADDRESSES BEEN 


TESTED? 

JP*ALLZEROS1 NOe TEST THE NEXT ADDRESS. 

ENTSR*00 SEE NOTE 2 IN APPENDIX Ac 

IUP*ALLZEROS YES» EXIT FROM THE ALLZEROS 
SUBROUTINE « 


MAINTAID ALLOWS NON-UNIT INCREMENTATION OF TEST 
ADDRESSES*CHANGE AU TO NON-SEQUENTIAL ADDRESS IN 
THE PRESENT TEST BLOCK. 


AINTAID 0O 


STRAU* TEMPORARY 


ENTAL* TEMPORARY 
CMAL*BEGINNING 
JPMGR*MAINTAID1 
ENTAL*TERMINAL 
CMAL* TEMPORARY 
JPMGR¥MAINTAIDL 
ENTB* TEMPORARY 


MAINTAIDL I[UP*MAINTAID 


BITSPICK DETERMINES WHETHER ONE BIT IS PICKED UP OR MORE 
THAN ONE BIT IS PICKED UP AND BRANCHES ON THE RESULTS 

TO EITHER SBPICK (ONE BIT) OR TO MUPICK (MORE THAN ONE 
BIT). 


ENTSR*00 SEE NOTE 2 IN APPENDIX Ae 
STRAL*FAILPTIN SAVE THE FAILING PATTERN» 
STRB*FAILADR SAVE THE FAILING ADDRESS. 
ENTAU*NOO0000 


PAGE 


ADDRESS 


01276 


01277 
01300 
01301 


01302 
01303 


01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 


01314 
01315 


01316 
01317 


0012 
INSTRUCT 
56 43Ne2 
34 1265 
5073 Ao 
55 1253 

no000nD 
WB 4301 
12 4301 
02 4226 
67 1313 
le 4302 
02 4301 
67 1313 
32 «64301 
55 1302 
5073 00 
GQ &WPUG 
YO any 


10 4366 


LOT-7 


SE QNO 


000557 
000560 
OU0561 
V0056e2 
000563 


UV00564 
000565 
000566 
000567 
000570 
000571 
000572 
000573 


000574 
VO0575 
000576 
000577 
000600 
000601 
000602 
000603 


000604 
QU0605 
000606 
000607 
000610 
000611 
000612 
OU06145 


000614 
000615 


LABEL 


SF*ES 


LSHA*2 


JPAUIZ*SBPICK 


JP*MUPICK 


STATEMENT 


POSITION THE MOST SIGNIFICANT 
FAILING 3IT TO BIT POSITION 16 
OF THE AU REGISTER. 

IF ONLY ONE BIT wAS PICKED UP 
THE AU REGISTER WILL EQUAL 


000000. 

IF ONLY ONE BIT PICKED UP GO TO 
SINGLE BIT PICKED UP ISOLATION 
ROUTINE (SBPICK). 

IF MORE THAN ONE BIT PICKED UP 
GO TO THE MORE THAN ONE BIT 
PICKED UP ISOLATION ROUTINE. 


BITSDROP DETERMINES WHETHER ONE 3IT IS DROPPED OR MORE 
THAN ONE BIT IS DROPPED AND BRANCHES ON THE RESULT TO 


>* 
*x 
* EITHER SYDROP 
* 
B 


ITSDROP ENTSR*00 
CPAL*0 


STRAL*FAILPTITN 
STR3*FAILADR 
CPAL*0 


JPAL 7*MUDROP 


ENTAU*NOOO000 


SF #€45 


(ONE BIT) OR TO MUDROP 


(MORE THAN ONE BIT). 


SEE NOTE 2 IN APPENDIX Ac 

COMPLEMENT AL To THE ORIGINAL 
FAILING PATTERN. 

SAVE THE FAILING PATTERN. 


SAVE THE FAILING ADDRESS- 

COMPLEMENT THE FAILING PATTERN 
SO THAT ALL FAILING BIT 
POSITIONS ARE NOW SET. 

IF ALL BITS wERE DROPPED GO TO 
THE MORE THAN ONE BIT DROPPED 
ISOLATION ROUTINE. | 


POSITION THE MOST SIGNIFICANT 
FAILING BIT TO 8IT POSITION 16 


PAGE 


ADDRESS 
01320 


01321 


01322 


01323 


01324 
01325 


(01326 
01327 
01330 


01331 


01332 


01333 


0013 


INSTRUCT 


5044 45 


5047 02 


60 1337 


34 1433 


5973 90 
5061 90 


Yu“ 4 OuG 
42 4ouy 
5061 00 


61 2146 


10 4366 


5044 4&5 


80T-P 


SEQNO 


000616 
000617 
000620 
V00621 
000622 


000623 
000624 
000625 
000626 
000627 
000630 
000631 
000632 


0006335 
000634 
000635 
000636 
000637 
000640 
000641 
000642 


000645 
000644 
000645 


QO00646 | 


000647 
000650 
000651 
000652 


000653 
000654 


LABEL STATEMENT 
* 
LSHA*2 
* 
JPAUZ*SBDROP 
* 
* 
JP*MUDROP 
‘. ) 
* 
* 
* 
aK 
* 
* 
* 
x 
* : 
* 
x 
* 
* 


SBPICK ENTAL*NO00000 
ENTAU*NO07000 
RJP*SELECT 
ENTAL#*HNS 


CMAL*NOOO0004 
JPMGR*SBPICKA 
CMAL*NOOO001O 


JPMGR*¥SBPICKB 
JP*SBPICKC 


PAGE 


ADDRESS 


OF THE AU REGISTER. 

IF ONLY ONE BIT WAS DROPPED THE 01334 
AU REGISTER WILL EQUAL 000000. 

IF ONLY ONE 3IT WAS DROPPED GO 01355 
TO THE SINGLE BIT DROPPED 


ISOLATION ROUTINE.’ 

IF MORE THAN ONE BIT WAS DROPPED 01336 
G0 TO THE MORE THAN ONE BIT 
DROPPED ISOLATION ROUTINE 


THE SBPICK ROUTINE IS REFERENCED WHEN A SINGLE BIT PICKED 
UP FAILURE IS DETECTED BY THE MAIN PROGRAM. SBPICK 


DETERMINES WHICH STACKS THE FAILURE OCCURS INe FIRST» 
SBPICK USES THE SELECT SUBROUTINE To TEST STACKS O90 
THROUGH 07 AND RECORDS THE RESULTS IN THE FORM OF A FLAG 
ESle THE PROGRAM THEN BRANCHES TO S8PICKA FOR A MEMORY 
SIZE OF 8K TO 16K» OR TO SBPICKB FOR A MEMORY SIZE OF 

20K TO 3S2k»e OR TO SBPICKC FOR A MEMORY SIZE OF 36K TO 65Ke 


TESTS FOR A SINGLE BIT PICKED UP 01337 
IN STACKS 90 THROUGH 07. 01349 
01341 
HIGHEST NUMBERED STACK INDICATES 013542 
THE MEMORY SIZE. | 
IF MEMORY SIZE IS 8Ke Leake OR 01343 
16K» GO TO SBPICKA. 01344 
IF MEMORY SIZE IS 20Ke 24Ke 28Ke 01345 


OR 32Ke GO TO SSPICKB. 01346 
IF MEMORY SIZE 1S 36K TO 65K 01347 


0014 
INSTRUCT 
S047 ne 
60 1744 
34 2146 
12 4366 
10 44el 
76 2455 
12 4250 
02 4371 
67 1350 
02 4373 
67 1355 
34 1365 


601-7 


SEQNO 


000655 
000656 
000657 
000660 
000661 


000662 
000665 
000664 
000665 
000666 
000667 
000670 
000671 


000672 
0006735 
000674 
000675 
000676 
000677 
000700 
000701 


000702 
000705 
000704 
000705 
000706 
000707 
000710 
000711 


000712 


000713 


tee He & 


LABEL 


* 
SBPICKA 
x 


BK 


STATEMENT 


ENTAU*NO00377 
ENTAL*ES1 
CMSK*NO00000 
JPEQ*NOPICK 


JP*ABITS 


GO TO SBPICKC. 


SBPICKA EVALUATES THE SINGLE BIT PICKED UP ERROR FLAG FOR 
ON THE BASIS OF THIS EVALUATION THE 
PROGRAM BRANCHES TO AN ERROR STOP. 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 

ERROR FLAG | 

IF NO STACKS 00 THROUGH 07 FAIL 
GO TEST THE BANK 0 ADDRESS 
TRANSLATION. 

IF AT LEAST ONE BUT NOT ALL BANK 


0 STACKS PICK UP A BIT GO TO 
ERROR STOP ABIT3- 


SBPICKB EVALUATES THE SINGLE BIT PICKED UP ERROR FLAG FOR 


24Ke 28Ke OR 32K, 


ON THE BASIS OF THIS EVALUATION 


THE PROGRAM BRANCHES TO AN ERROR STOP. 


BPICKB 


* 
x 
* 
x 
x cOK e 
* 
x 
S 


ENTAU*NO000377 


ENTAL*ES1 
CMSK *¥NO00000 
JPEQ*NOPICK 


ENTAU*NO00360 
CMSK*NOO0000 
JPNOT*ABITS 


 JP*ABIT4 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe 

ERROR FLAG . 

IF NO STACKS 00 THROUGH 07 FAIL 
GO TEST THE BANK 0 AND THE 
BANK 1 ADDRESS TRANSLATIONS. 

IF AT LEAST ONE STACK IN BANK O 
PICKS UP A BIT GO To ERROR 
STOP ABIT3. 


IF AT LEAST ONE STACK IN BANK 1 


PICKS UP A BIT GO TO ERROR 


PAGE 


ADDRESS 


01350 
01351 
01352 
01353 


01354 


01355 


01356 
01357 
01360 


01361 
01362 
01363 


01364 


0015 
INSTRUCT 
10 44n6 
12 4ou0 
06 4366 
61 1601 
34 2066 
10. 4406 
12 4240 
06 4366 
61 1691 
10 44uns 
06 4366 
63 2n66 
34 2072 





OTT~-F 


SE QNO 


000714 
VOO715 
000716 
000717 
000720 


000721 
000722 
000725 
000724 
000725 
000726 
000727 
000730 


000731 
000732 
000735 
000734 
000735 
000736 
000737 
000740 


OU07T4L 
OU074e 
VO074S 
000744 
000745 
000746 
000747 
000756 


000751 
0U075e 


LABEL STATEMENT 

* STOP ABIT4. 

* 

* SBPICKC EVALUATES THE SINGLE BIT PICKED UP ERROR FLAG FOR 

* STACKS 00 THROUGH 07 FOR 36K TO 65K OF MEMORY+ ON THE 

* BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO AN ERROR 

* STOP. 

* | 

SBPICKC ENTAU*N000377 MASKS OUT THE MEMORY SIZE PORTION 

x OF THE ERROR FLAG. 
ENTAL*ES1 ERROR FLAG. 
CMSK*NO00000 IF NO STACKS 00 THROUGH 07 FAIL 
JPEQ*SBPICKD GO TEST STACKS 10 THROUGH 17- 
CMSK*N000377 IF ALL STACKS 00 THROUGH 07 PICK 
JPEQ*ABIT2 UP A BIT GO Te ERROR STOP 

+ ABIT2. | 
ENTAU*N000360 IF AT LEAST ONE STACK IN BANK 0 
CMSK*NOO0OUN PICKS UP A BIT GO TO ERROR 
JPNOT*ABITS STOP ABIT3. 
JP*ABIT IF AT LEAST ONE STACK IN BANK 1 

* PICKS UP A BIT GO To ERROR STOP 

* ABIT4. | 

oie 

*  SBPICKO USES THE SELECT SUBROUTINE TO TEST STACKS 10 

4 THROUGH 17 AND RECOROS THE RESULTS IN THE FORM OF A FLAG 

* ESle THE PROGRAM THEN BRANCHES TO SBPICKE FOR A MEMORY — 

* SIZE OF 36K TO 49Kr OR TO SBPICKF FOR A VEMORY SIZE OF 

* 53K TO 65K. | 

* 

SBPICKD  ENTAL*N000000 TEST FOR A SINGLE BIT PICKED uP 
ENTAU*N100000 IN STACKS 10 THROUGH 17. 
RUP*SELECT | 


PAGE 


ADDRESS 


01365 


01366 
01367 
01370 
01371 


01372 


01373 
01374 
01375 
01376 


01377. 


0140N 
01401 


ON16 
INSTRUCT 
10 44unsS 
12 42400 
06 4366 
61 1377 
06 44N6 
61 enshe 
10 4495 
06 4%3566 
63 266 
34 2072 
12 4346 
10 4&44u26 
76 2455 


Tlt-P 


SEQNO 


000753 
000754 
000755 
000756 
000757 


000760 


000761 
000762 
000763 
000764 
000765 
000765 
000767 


000770 
000771 
000772 
000773 
000774 
000775 
000776 
VOO777 


001000 
001001 
001002 
001003 
001004 
001005 
001006 


001007 
001010 


~ 


eee HHH H 


e* HH 


% 


LABEL 


STATEMENT 


ENTAL*®HNS 


CMAL*NOOOOLY 
JPMGR¥*SBPICKE 
JP*SBPICKF 


HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE. 

IF MEMORY SIZE IS 36Ke 4OKe 
OR 4Y9K*e GO TO SBPICKE. 

IF MEMORY SIZE IS 53Ke 57K» 


USK» 
61K 6 


OR 65Ke GO TO SBPICKF. 


SBPICKE EVALUATES THE SINGLE BIT PICKED uP ERROR FLAG FOR 


STACKS lo THROUGH 17 FOR 36K TO 49K OF MEMORY. 


ON THE 


BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO AN 
ERROR STOP. 


BPICKE 


SBPICKF EVALUATES THE SINGLE 8IT PICKED uP ERROR FLAG FOR 
STACKS 10 THROUGH 17 FOR 53K TO 65K OF MEMORY. 


ENTAU*N000377 


ENTAL*ES1 
CMSK*NO00000 
JPEQ*NOPICK 


ENTSK*3 
CMALB*IBNK2T36K 


JPEQ*ABIT56 
BUP*LOK~2 
JP*ABITO 


ERROR STOP. 
BASIS OF THIS EVALUATION THE PROGRAM 3RANCHES TO AN 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAG. 

ERROR FLAG. 

IF NO STACKS 10 THROUGH 17 FAIL 
GO TEST THE BANK fe BANK le 
AND BANK 2 ADORESS 
TRANSLATIONS 


IF ALL EXISTING STACKS 10 THROUGH 


13 PICK UP A SINGLE BIT GO TO 
ERROR STOP ABITS6.- 

IF AT LEAST ONE STACK IN BANK 2 
FAILED GO TO FRROR STOP ABIT6. 


ON THE 


PAGE 


ADDRESS 


01402 
01403 


01404 
01405 


01406 


01407 
01410 
01411 


01412 


01413, 


01414 
01415 
01416 


0017 
INSTRUCT 
12 4250 
N2 Y4r7y 
67 1406 
34 1n17 
10 44uN6 
12 4>KQ 
06 4366 
61 1601 
36 ONN3 
03 4323 
61 2126 
73 143 
34 2102 


CLI-P 


SEQNO 


001011 
OV1012 
001013 
001014 
001015 


OU1016 
001017 
001020 
001021 
001022 


001023 
001024 


001025 
001026 
001027 
001030 
0010351 
001032 
0010353 
001034 


001035 
001036 
001037 
001040 
001041 
601042 
001043 
001044 


001045 
001046 


LABEL STATEMENT 

* 

SBPICKF ENTAU*N000377 MASKS OUT THE MEMORY SIZE PORTION 

* OF THE ERROR FLAGe 
ENTAL*ES1 ERROR FLAG 
CMSK*¥NOO0O0000 IF NO STACKS 10 THROUGH 17 FAIL 
JPEQ*NOPICK o0 TEST THE BANK Ov BANK 1» 

* | BANK 2@e AND BANK 3 ADDRESS 

* TRANSLATIONS. 
ENTBK*3 | 
CMALB*13K23T5S3K IF ALL EXISTING STACKS 19 THROUGH 
JPEQ*ABITS 17 PICK UP A AIT GO TO ERROR 
BJP*LOK=2 STOP ABITS. 
ENTAU*NO000360 CHECK ONLY BANK 2 STACKSe 
CMSK*NO00000 IF AT LEAST ONE STACK IN BANK 2 
JPNOT*ABIT6 PICKED UP A BIT 60 TO ERROR 

* STOP ABIT6. 
JP*ABIT?7 IF AT LEAST ONE STACK IN BANK 3 

* PICKED UP A BIT GO TO ERROR 

a STOP ABIT7. 

* 

* THE MUPICK ROUTINE IS REFERENCED WHEN MORE THAN ONE BIT IS 

* PICKED UP. MUPICK DETERMINES WHICH STACKS THE FAILURE 

* OCCURS IN. FIRSTe MUPICK USES THE SELECT SUBROUTINE TO 

* TEST STACKS 00 THROUGH 07 AND RECORDS THE RESULTS IN THE 

* FORM OF AN ERROR FLAG ES1le THE PROGRAM THEN BRANCHES TO 

* MUPICKA FOR A MEMORY SIZE OF BK TO 16Ke OR TO YUPICKB FOR 

* A MEMORY SIZE OF 20K TO 32Ke OR TO MUPICKC FOR A MEMORY 

* SIZE OF 32K TO 65K. 


* 


MUPICK 


ENTAL*¥NOO0000 TEST FOR MORE THAN ONE BIT 


PAGE 


ADDRESS 


01417 


01420 
01421 


01422 


01425 
01424 
01425 
-01426 
01427 
01430 
01431 


01432 


01433 


0n18 
INSTRUCT 
10 44&n6 
12 4240 
06 4366 
61 1601 
36 0003 
03 4333 
61 2N76 
73 «1424 
10 4&4n5 
06 4346 
63 212 
34 2106 
12 4.66 


Eli-P 


SEQNO 


001047 
001050 
001051 
001052 
001053 


001054 


001055 
001056 
001057 
001060 
001061 
001062 


001063 
001064 
001065 
001066 
001067 
V01070 
001071 
001072 


001073 
001074 
001075 
001076 
001077 
001100 
601101 
001102 


001103 
001104 


* 


% *aee He * 


+ t# He He & 


*% % 


LABEL 


STATEMENT 


ENTAU*NO07000 


RUP*¥SELECT 
ENTAL*HNS 


CMAL*NO00004 


JPMGR*MUPICKA 
CMAL*NOOOO010 
JPMGR*¥MUPICKB 
JP*MUPICKC 


PICKED UP IN STACKS 00 
THROUGH O07. 

HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE. | 

IF MEMORY SIZE IS 8Ke 12K+e OR 16K 
GO TO MUPICKA. 

IF MEMORY SIZE IS 20Ke 24Ke 28Kr 
OR 32Ke GO TO MUPICKB. 

IF MEMORY SIZE IS 36K TO 65K» 


GO TO MUPICKC, 


MUPICKA EVALUATES THE MORE THAN ONE BIT PICKED UP ERROR 


FLAG FOR 8Ke 


12Kr 


OR 16Ke 


ON THE BASIS NF THIS EVALUATION 


THE PROGRAM BRANCHES TO AN ERROR STOP. 


UPICKA 


ENTAU*N000377 


ENTAL*ES1 
CMSK*N000000 


JPEQ*NOPICK © 


JP*MUBITS 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 

ERROR FLAG. 

IF NO STACKS 00 THROUGH 07 FAIL 


GO TEST THE BANK O ADDRESS 
TRANSLATION. 

IF AT LEAST ONE BUT NOT ALL 
BANK 0 STACKS PICK UP MORE 
THAN ONE BIT GO TO ERROR STOP 
MUBIT3.e ye 


MUPICKB £VALUTES THE MORE THAN ONE 3IT PICKED UP ERROR 


FLAG FOR 20K*e 24Ke 28Ke OR 32Ke 


ON THE SASIS OF THIS 


EVALUATION THE PROGRAM BRANCHES TO AN ERROR STOP. 


PAGE 


ADDRESS 


014354 


01455 
01436 


01437 
01440 
0144s 
014402 
01443 


01444 


01445 
01446 


01447 


01450 


0019 
INSTRUCT 
10 4421 
76 2455 
12 4250 
02 4371 
67 1444 
02 4373 
67 1451 
34 1472 
10 4496 
12 49240 
06 4346 
61 1691 
34 1563 


yII-F 


SEQ@NO 


001105 
001106 
001107 
001110 
001111 


vO1i12 
001113 
001114 
001115 
001116 
001117 
001126 
001121 


001122 
001123 


001124 
001125 
001126 
001lle?7 
001130 
001131 


0V113e 
001135 
001154 
001135 
001136 
001137 
001140 
001141 


001142 
001143 


LABEL 


x 
MUPICKB 
* 


Hee He He eer. 


* * 


STATEMENT 


ENTAU*NO00377 


ENTAL*ES1L 
CMSK *NO000000 


JPEQ*NOPICK | 


CMSK¥*NO000360 
JPEQ*MUBIT2? 


ENTBK*3 
CMALB*IBNKIT20K 
JPEQ*MUBITIL 


BUP*LOK=2 
ENTAU*NO000360 
CMSK*NO00000 
JPEQ*MUBIT2 


ENTAU*NO000017 


CMSK*N000000 
JPEQ*MUBIT2 


JP*MUBITI 


MASKS OUT THE MEMORY SIZE PORTION 
QF THE ERROR FLAG. 

ERROR FLAG. 

TF NO STACKS 00 THROUGH 07 FAIL 


GO TEST THE BANK 0 AND THE 
BANK 1 ADDRESS TRANSLATIONS.» 
IF ALL STACKS 00 THROUGH 03 PICK 
UP MORE THAN ONE BIT GO TO 

ERROR STOP MURIT2- 


IF ALL EXISTING STACKS 04 
THROUGH 07 PICK UP MORE THAN 


ONE BIT GO TO MUBITI-« 

IF NO STACKS 00 THROUGH 03 FAIL» 
THEN AT LEAST ONE BuT NOT ALL 
EXISTING STACKS O4 THROUGH 07 
FAIL GO TO ERROR STOP MUBIT2. 

IF NO STACKS O04 THROUGH 07 FAIL 
THEN AT LEAST ONE BUT NoT ALL 
STACKS 00 THROUGH 03 PICK UP. 


MORE THAN ONE BITe 
STOP MUBIT2. 

IF AT LEAST ONE STACK IN EACH 
BANK (0 AND 1) FAIL BUT NOT | 
ALL EXISTING STACKS IN BANK 0 
AND BANK 1e GO TO ERROR STOP 
MUBITI. 


GOT TO ERROR 


MUPICKC EVALUATES THE MORE THAN ONE BIT PICKED UP ERROR 
FLAG FOR STACKS 00 THROUGH 07 FOR 36K TO 65K OF MEMORY. 


PAGE 


ADDRESS 


01451 


01452 
01453 


01454 


01455 
01456 


01457 
01460 
01461 


01462 
01463 
01464 
01465 


01466 


01467 


01470 


01471 


020 
INSTRUCT 
10 44n6 
12 4240 
06 4366 
61 1691 
06 44N5 
61 1561 
36 0093 
03 4317 
61 1557 
735 1460 
10 &4O5 
06 4366 
61 1561 
10 4375 
06 %366 
61 1561 


(34 


1597 


STI-F 


SEQNO 


001144 
001145 
001146 
001147 
001150 


001151 
00115c« 
001155 
001154 
001155 
001156 
001157 
001160 


001161 
001162 
001163 
001164 
001165 
001166 
001167 
001170 


001171 
001172 
001175 
001174 
001175 
001176 
001177 
v01206 


091201 
001202 


LABEL 


STATEMENT 


* ON THE BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO 
* TEST STACKS 10 THROUGH 17 OR TO AN ERROR STOP. 


> 
MUPICKC 
* 


ee He * 


% 


ENTAU*NGO00377 


ENTAL¥ES1 
CMSK*N0Q00000 
JPEQ*MUPICKD 


CMSK *N000377 
JPEQ*MUBIT7 
CMSK¥*NOO0C360 


JPEQ*MUBIT2 
CMSK*NO00017 
JPEQ*MUBITIL 
ENTAU*N000360 
CMSK*NOOO0QU0 
JPEQ*MUBIT2 


ENTAU*NO00017 


CMSK*N000000 
JPEQ*MUBITe 


JP*MUBITI 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 


FRROR FLAG. 


IF NO STACKS 00 THROUGH 97 FAIL 
GO TO TEST STACKS 10 THROUGH 
17 FOR MORE THAN ONE BIT PICKED 
UP FAILURES. 

IF ALL STACKS 00 THROUGH 07 FAIL 
GO TO ERROR STOP MUBIT?7. 

IF ALL STACKS 00 THROUGH O03 FAIL 


GO TO ERROR STOP MUBIT2. 

IF ALL STACKS 04 THROUGH 07 FAIL 
60 TO ERROR STOP MUSITI. 

IF NO STACKS 00 THROUGH 023 FAIL 
THEN AT LEAST ONE BUT NOT ALL 
STACKS 04 THROUGH O7 FAIL» 

60 TO ERROR STOP MUBIT2. 
TF NO STACKS 04 THROUGH 97 FAIL 


THEN AT LEAST ONE But NoT ALL 
STACKS 00 THRAUGH 03 FAIL® 
GO TO ERROR STOP MUBIT2. 

IF AT LEAST ONE STACK IN EACH 
BANK (0 AND 1) FAIL BUT NOT 
ALL EXISTING STACKS IN BANK 0 
AND BANK 1+ GN TO ERROR STOP 
MUBIT1. 


MUPICKD JSES THE SELECT SUBROUTINE TO TEST STACKS 10 


PAGE 


ADDRESS 


01472 


01473 
01474 
01475 


01476 
01477 
01500 


01501 
01502 


01503 
01504 
01505 
01506 


01507 
01510 


01511 


ONL 
INSTRUCT 
10 4une 
12 4Pug 
06 4366 
61 1512 
06 4unG 
61 1573 
06 4&44N5 
61 1561 
06 4375 
10 44ns 
06 4366 
61 1561 
10 4375 

06 4366 
61 1561 
34 1557 


9TI-F 


SEQNO 


0012053 
001204 
001205 
001206 
001207 


001210 
001211 
001212 
001215 
001214 
001215 
001216 
VO1l217 


001220 
001221 
O0l22c 
001223 
001224 
001225 
001226 
001227 


001230 
001231 
001232 
001235 
001234 
001235 
001236 
001237 


001240 
001241 


*% He He & 


MUPICKD 


*eeHRE EE E 


MUPICKE 


* 


LABEL STATEMENT 


THROUGH 17 AND RECORDS THE RESULTS IN THE FORM OF A FLAG 


ES1e 


THE PROGRAM THEN BRANCHES To MUPICKE FOR A MEMORY 


SIZE OF 36K TO 49Ke OR TO MUPICKF FOR A “EMORY SIZE OF 


OSK TO 65Ke 


ENTAL*NOOOO000 
ENTAU*N100000 
RJP*SELECT ~ 
ENTAL*HNS 


CMAL*NOO0014 
JPMGR*MUPICKE 
JP*¥MUPICKF 


IF MEMORY SIZE IS 53K» 


TEST FOR MORE THAN ONE BIT PICKED 
UP IN STACKS 10 THROUGH 17. 


HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE. 

IF MEMORY SIZE IS 36Ke 
OR YOKe 


LOKe &5Ke 
GO TO MUPICKE. 
S7Ke 61Ke 


OR 65Ke GO TO MUPICKF. 


MUPICKE EVALUATES THE MORE THAN ONE BIT PICKED UP ERROR 
FLAG FOR STACKS 10 THROUGH 17 FOR 36K TO 4OK OF MEMORY. 
ON THE BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO 


AN ERROR STOP. 
ENTAU*N000377 
ENTAL*ES1 


CMSK *NO00000 
JPEQ*NOPICK 


ENTSK*3 
CMALB*IBNK2T36K 


JPEQ*MUBITS 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe 

ERROR FLAG. 

IF NO STACKS 10 THROUGH 17 FAIL 
GO TEST THE BANK Or BANK 1p 
AND BANK 2 ADDRESS 
TRANSLATIONS « 


IF ALL EXISTING STACKS 10 


THROUGH 13 PICK UP MORE THAN 
ONE BIT GO TO ERROR STOP 


PAGE 


ADDRESS 


01512 
01513 
01514 
01515 


01516 


01517 
01520 


01521 


01522 
01523 
01524 


01525 
01526 


01527 


ON?2 
INSTRUCT 
12 4366 
10 4426 
76 2455 
12 4250 
02 4374 
67 1521 
34 1532 
10 4406 
12 Yeung 
06 4366 
61 1601 
36 0003 
03 4323 
61 1577 


LIIt-y 


SEQNO 


OO0124e 
001243 
001244 
001245 
001246 


001247 
001250 
001251 
001252 
001253 
001254 
001255 
001256 


001257 


001260 
001261 
001262 
001263 
001264 
001265 
001266 


001267 
001270 
001271 
001272 
0U1273 
GO1l274 
U01275 
001276 


001277 
001300 


t+ 


eee He HH 


MUPICKF 


* 


LABEL 


STATEMENT 


BUP*LOK=2 
JP*MUBIT6 


PAGE 


ADDRESS 


MUBIT9, 

IF AT LEAST ONE BUT NOT ALL 
EXISTING BANK 2 STACKS PICK 
UP MORE THAN ONE BIT GO TO 


ERROR STOP MUBITT6.- 


MUPICKF EVALUATES THE MORE THAN ONE BIT PICKED UP ERROR 
FLAG FOR STACKS 10 THROUGH 17 FOR 53K TO 65K OF MEMORY. 
ON THE BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO. 
AN ERROR STOP. 


ENTAU*NO000377 


ENTAL*ES]I 
CMSK *N000000 
JPEQ*NOPICK 


ENTB8K*3 
CMALB¥*IBK23T5S3K 
JPEG*MUBITS 
BUP*LOK~2 
CMSK*N000360 
JPEQ*MUBITS 


ENT 8K *3 


— CMALB*IBNKST53K © 


JPEQ*YUBITY 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe 

ERROR FLAG. 

IF NO STACKS 10 THROUGH 17 FAIL 
GO TEST THE BANK Or BANK Ile 
BANK 2» AND BANK 3 ADDRESS 
TRANSLATIONS. 


IF ALL EXISTING STACKS 10 


THROUGH 17 PICK UP MORE THAN 
ONE BIT GO TO ERROR STOP 
MUBITS. 


IF ALL STACKS 1n THROUGH 13 PICK 
UP MORE THAN ONE BIT GO TO 
ERROR STOP MURIT5S.« 


IF ALL EXISTING STACKS 14 
THROUGH 17 PICK UP MORE THAN 


01530 
01531 


01552 


015353 
01554 
01555 


01536 
01537 
01540 
01541 
01542 
01543 
01544 


01545 
01544 


0023 
INSTRUCT 
73 1526 
34 1571 
10 44N6 
12 4240 
06 4366 
61 16901 
36 O0NN3 
O03 4233 
61 1575 
73 =1537 
06 4495 
61 1567 
36 093 
03 4%27 
61 1565 


STI-P 


SEQNO 


001301 
001302 
001305 
001304 
001305 


001306 
001307 
001310 
001311 
O013le 
001313 
001314 
001315 


001316 
001317 


—- 001320 
/~001321 


001322 
001325 
001324 
001325 


001326. 


001327 
001330 


001331 — 


Y01332 
001335 
001334 
001355 


001336 
001337 


% 


LABEL 


% 


*¥SH&HeKR HH F 


UBIT1 


MUBIT2 
* 


MUBITS3 
PY 


aK 


MUBIT4Y 
ra 


STATEMENT 


BUP*LOK=2 
ENTAU*N000360 
CMSK*NO00000 
JPEQ*MUBIT5 
ENTAU*NO00017 
CMSK*NO00000 
JPEQ*MUBIT5 


JP*VUBITY 


STOP*4KQ 


IJP*RECYCLE 
STOP*«4&O 


TUP*RECYCLE 


STOP «4g 


IUP*RECYCLE 


STUP*40 


ONE BIT GO TO ERROR STOP 
MUBIT4. | 


IF NO STACKS 10 THROUGH 13 FAIL 
THEN AT LEAST ONE BuT NOT ALL 


STACKS 14 THROUGH 17 FAIL? 
GO TO ERROR STOP MUBITS. 

IF NO STACKS 14 THROUGH 17 FAIL 
THEN AT LEAST ONE BUT NoT ALL 
STACKS 10 THROUGH 13 FAIL¢ 
GO TO ERROR STOP MUBITS. 

IF AT LEAST ONE STACK IN EACH 
BANK (2 AND 3) FAIL BUT NOT 


ALL EXISTING STACKS IN BANK 2 
AND BANK 3 FAILED GO TO ERROR 
STOP MUBITG. 


THE FOLLOWING ERROR STOPS SERVE THE MUPICK SUBROUTINE. 


REPLACE 5J33C*+ CARD TYPE 99006 
RECYCLE THE MEMORY TEST. 


REPLACE 5J35C*+ CARD TYPE 09006 
RECYCLE THE MEMORY TEST. 


REPLACE 5J33C*e CARD TYPE 0900 


AND 5JU35C* CARD TYPE 0900- 
RECYCLE THE MEMORY TEST. 


REPLACE 6U33Cr CARD TYPE 0900¢ 


PAGE 


ADDRESS 


01547 
01550 
0155! 


01552 


01553 
01554 
01555 


01556 


01557. 


01560 
01561 


01562 
01563 
01564 


01565 


0024 
INSTRUCT 
73 #61545 
10 44O5 
06 4%KG 
61 1567 
10 &2x75 
06 4366 
61 1567 
34 1565 
5056 40 
55 4oe75 
5056 40 
55 4o75 
5056 40 
55 4aTs 
5056 40 


6TI-?F 


SEQNO 


001340 
VO0134) 
001342 
001343 
001344 


001345 
001346 
001347 
001350 
001351 
001352 
001353 
001354 


001355 
001356 
001357 
001360 
001361 
001362 
001363 
001364 


001365 
001366 
001367 
001370 
001371 
001372 
001373 
001374 


001375 
001376 


LABEL 


MUBITS 
*x 


MUBIT6 


* 
* 


MUBIT7 
* 


eee te & *% & 


= 
Cc 
OO 
~ 
anf 
es) 


ee RH HHH F 


MUBITS9 


STATEMENT 


IJP*#RECYCLE 
STOP*40 


IUP¥*¥RECYCLE 
STOP¥*40 


IJP*RECYCLE 
STOP*4Q 


TUP*RECYCLE 
STOP *4O 


IJP*RECYCLE 


STOP*4Q 


RECYCLE THE MEMORY TEST. 


REPLACE 6J35C» CARD TYPE 0900-6 
RECYCLE THE MEMARY TEST. 


REPLACE 6J33C»+ CARD TYPE 0900 
AND 6J35Cer CARD TYPE 0900¢ 
RECYCLE THE MEMORY TEST. 


SCOPE TO DETERMINE WHICH OF THE 
FOLLOWING HAS FAILED» 
(1) S5U25C (50uMT21°9—135) 
CARD TYPE 02606 


(2) SU27C (S0uT26°50MT27» 
SOMT22¢51MT2209—=135) » 
CARD TYPE 0280- 
(3) SU33C (52MT27°9~-135)» 
CARD TYPE 0900-6 
RECYCLE THE MEMORY TEST. 


SCOPE TO DETERMINE WHICH OF THE 


FOLLOWING HAS FAILED. 

(1) 6J325C (50uT21°9=135) » 
CARD TYPE 0260. 

(2) 6J27C (5OMT26°50MT27» 
SOMT22¢51MT2209—135) » 
CARD TYPE 0280- 

(3) 6533C (52MT27°9—-135) ¢ 
CARD TYPE n900- 


RECYCLE THE MEMORY TEST. 


PAGE 
ADDRESS 
01566 
01567 


01570 
01571 


01572 


01573, 


01574 


0025 
INSTRUCT 
55 4275 
9056 40 
55 4275 
5056 40 
55 4275 
5056 40 
55 4275 


01575 S056 40 


01576 55 


GATS 


01577 5056 40 





02 [-7 


SE.ONO 


V01377 
001400 
001401 
001402 
001403 


001404 
O01405 
001406 


001407 
001410 
001411 
001412 


001415 
001414 
001415 
OU1L416 
001417 
001420 
001421 
001422 


001425 
OU1424 
001425 
001426 
001427 
001430 
001431 
001432 


001435 
001434 


LABEL 


* eee 


* 


% 


NOPICK 


STATEMENT 


ITJUP*¥RECYCLE 
RUP*SPADR 
ENTAL*EC2 
ENTAU*N170000 
CMAL¥*ECIL 
JPNOT*NOPICKY 


CMSK*HNSX 


JPNOT*NOPICKS 
ENTAL®HNS 
CMAL *NU00004 
JPNOT*NOPICK 


RUP*ADRXLAT 


SCOPE TO DETERMINE WHICH OF THE 


FOLLOWING HAS FAILED» 

(1) 6J25C (50MT21°9—-135) e 
CARD TYPE 0260. 

(2) 6J27C. (50M4T26+50MTPR7» 


2OMT22¢51MT2299—135) » 
CARD TYPE 0280- 


(3) IF NEITHER OF THE ABOVE FAIL 


REPLACE 6J33C* CARD TYPE 
0900 AND 6J35C CARD TYPE 
0900. 

RECYCLE THE MEMORY TEST. 


USE THE SPECIAL TEST. 


WAS THE FAILURE AN INHIBIT 
STACK SELECTION FAILURE 
AFFECTING ONLY ONE STACK? 

NO» USE THE REGULAR ADDRESS 
TRANSLATION NEXTe 

YESe IS THE FAILING STACK 


THE HIGHEST EXISTING STACK? 
NO» GO TO DISPLAY THE EC1 AND 
EC2 ERROR FLAGS. 
YESe IS THE FAILING STACK THE 
ONLY EXISTING STACK IN THE 
BANK? 


YES» USE THE REGULAR ADDRESS 
TRANSLATION TEST. 


PAGE 


ADDRESS 


01600 


01601 
01602 
01603 
01604 
01605 


01606 


01607 
01610 
01611 
01612 
01613 


0026 
INSTRUCT 
55 4e75 
76 1635 
12 4235 
10 4uri 
02 4234 
63 1630 
06 4251 
63 1624 
12 4250 
02 4371 
63 1615 
76 2536 


T¢ T-% 


SEQNO 


001435 
001456 
001437 
001440 
001441 


00144? 
001445 
OO1444 
001445 
001446 
001447 
001450 
001451 


001452 
001455 
001454 
001455 
001456 
001457 
001460 
001461 


001462 
001463 
001464 
001465 
001466 
001467 
001470 
001471 


UV01472 
001475 


LABEL 


" 
NOPICK1 


* 
2 
NOPICK2 


* 
* 


NOPICKS 


ri 
aK 
* 


NOPICK4 


* 


% HH & 


% 


STATEMENT 


JP*NOPICKS 


CMAL*NOO00010 
JPNOT*NOPICK2? 
RJP*ADRXLAT 


JP*NOPICKS 


CMAL*NOO0014 
JPNOT*NOPICK3 
RUP*ADRXLAT 


ENTAU*ECI 
ENTAL*EC2 
STOP*4Q 


TUP*RECYCLE 
RUP*ADRXLAT 


ENTAU*FAILADR 
ENTAL*FAILPTTN 
STOP*#&0 


THE ADDRESS TRANSLATIONS ARE OK. 
GO DISPLAY EC1 AND £C26 


YES» USE THE REGULAR ADDRESS 


TRANSLATION TEST. 
THE ADDRESS TRANSLATIONS ARE OKe 
GO DISPLAY EC1 AND EC2- 


YES*e USE THE REGULAR ADDRESS 
TRANSLATION TEST. 
THE ADDRESS TRANSLATIONS ARE OKe 


INDICATES A STACK INHIBIT 
SELECTION FAILURE AFFECTING 
ONLY ONE STACK, 

RECYCLE THE MEMORY TEST. 

USE THE REGULAR ADDRESS 


TRANSLATION TEST. 


THIS ERROR STOP OCCURS WHENEVER 
THE PROGRAM DETECTS AN INHIBIT 
FATLUREe BUT IS UNABLE TO 
ISOLATE IT. THE AU REGISTER 


CONTAINS THE FAILING ADDRESS 
AND THE AL REGISTER CONTAINS 


PAGE 


ADDRESS 


01614 
01615 
01616 
01617 
01620 
01621 


—~—01622 


01623 


01624 
01625 
01626 


01627 
01630 


01631 
01652 
01633 


09?7 
INSTRUCT 
34 1624 
02 4373 
63 1621 
76 2536 
34 1624 
02 4374 
63 1624 
76 2536 
10 4234 
12 442835 
5056 40 
55 4275 
76 2536 
10 4244 
12 4246 
5056 40 





CCL"? 


SEQNO 


001474 
001475 
001476 
001477 
001500 


001501 
001502 
001503 
001504 
001505 
001506 
001507 
001510 


001511 
00151e2 
001513 
001514 
001515 
001516 
001517 
001520 


001521 
001522 
001523 
001524 
001525 
001526 
001527 
001530 


001531 


— 001532 


LABEL 


SPADR 


* 
SPADR1 


* 


ae 


SPADR2 


SPADR3S 


* 


SPADR4 


STATEMENT 


TUP*RECYCLE 
0 
ENTSR*00 


ENTAL¥N777777 
STRAL*EC2 
CL¥ECI 

ENTICR*1 
ENTAU*PARITYMSK 
ENTB*BEGINNING 


ENTSR¥*10 
ENTAL*0001 
SKPEVN*O 
JP*SPADR2 
CLB*0000 


JP*SPADRS 
ENTALK* 7777 


STRALB*0000 
ENTSR¥*00 


BSK* TERMINAL 


JP*SPADRI 
ENTB*BEGINNING 


ENTSR*10 


ENTAL*Q9001 


THE FAILING PATTERN. THE 
CORRECT PATTERN IS 9000006 
RECYCLE THE MEMORY TEST. 


DEACTIVATE SR. 


INITIATE THE ES1 AND ES2 ERROR 
DISPLAYS. 

ACTIVATE Ble 

PARITY MASK TO AUs 

FIRST ADDRESS OF FAILING BLOCK 
TO Bl. 

SEE NOTE 1 IN APPENDIX Ac 


NEXT TEST ADDRESS TO AL. 

IS THE PARITY EVEN? 

NO» GO TO WRITE A 777777 PATTERN 
INTO THE ADDRESS. 

YES» WRITE A 000000 PATTERN INTO 
THE ADDRESS. 


WRITE A 777777 PATTERN INTO THE 


CURRENT ADDRESS. 

SEE NOTE 2 IN APPENDIX Ae 

HAVE ALL THE ADDRESSES IN THE 
BLOCK BEEN wRITTEN INTO? 

NOe WRITE INTO THE NEXT ADDRESS- 

FIRST ADDRESS OF FAILING BLOCK 
TO Bl. 

SEE NOTE 12 IN APPENDIX Ae 


NEXT TEST ADDRESS TO THE AL 
REGISTER. 


PAGE 


ADDRESS 


01634 


01635 
01636 


01637 
01640 
01641 
01642 
0164% 
01644 


01645 
01646 
01647 
01650 
01651 


01652 
01653 


01654 
01655 
01656 


01657 
01660 


01661 


01662 


0N378 
INSTRUCT 
55 4275 
oo00onNng 
5073 no 
12 44ys5 
QQ 4DRS 
UO 42y 
5072 ni 
10 4261 
32 4226 
5073 10 
12 ONAL 
5055 00 
34 16583 
G1 onnd 
34 1655 
70 T7777 
G5 onno 
5073 a0 
56 43no 
34 1645 
32 4226 
5073 10 
12 ONnNL 


Ecl-V 


SE QNO 


001535 
001534 
001535 
001536 
001537 


001540 
001541 
001542 
001543 
v01544 
001545 
001546 
001547 


001550 


OV1551— 


001552 
001555 
001554 
001555 
001556 
001557 


001560 
001561 
U01562 
001563 
001564 
001565 
001566 
001567 


001570 
001571 


LABEL 


SPADRS5 


SPADRG6 
* 


* 


* 


SPADR7 
* 


STATEMENT 


SKPEVN*O 
JP*SPADRS 
ENTALB*0000 


JPALZ*SPADR7 


JP*SPADRG 
ENTALB*0000 
ENTSR*00 
CMAL*N777777 
JPEQ*SPADR7 
ENTSR*00 


STRB¥*¥ TEMPORARY 
ENTAL* TEMPORARY 
SLSET*EC] 
STRAL*EC1 


ENTAL* TEMPORARY 
SLCL¥EC2 
STRAL*EC2 


BSK* TERMINAL 


JP*SPADRY 
ENTSR*00 
ENTAL*EC1 
JPALZ*SPADRO 


 ENTAU*N770000 


CMSK*EC2 


IS THE PARITY EVEN? 

NO.» GO CHECK FoR BITS DROPPED. 

YESe HAVE THE CONTENTS OF THE 
ADDRESS PICKED uP BITS? 

NO» GO ON TO THE NEXT ADDRESS. 


YES» GO TO RECORD THE FAILURE.’ 


DEACTIVATE SRe 

DID THE ADDRESS FAIL? 

NOe GO ON TO THE NEXT ADDRESSe 

DEACTIVATE SRe 

THE FOLLOWING INSTRUCTIONS 
RECORD THE FAILURE. 


SAVE THE FAILING ADDRESS-« 

FORM THE LOGICAL SUM OF THE 
CURRENT FAILING ADDRESS WITH 
THE LOGICAL SUM OF ALL THE 
PREVIOUS FAILING ADDRESSES. 

FORM THE LOGICAL PRODUCT OF THE 
CURRENT FAILING ADORESS WITH 
THE LOGICAL PRODUCT OF ALL THE 


PREVIOUS FAILING ADDRESSES. 
HAVE ALL THE ADDRESSES BEEN 
TESTED? | 
NOre TEST THE NEXT ADDRESS. 
DEACTIVATE SRe | 
DID ANY ADDRESSES FAIL? 
NOr GO EXIT FROM THE SPADR 
SUBROUTINE. 


DID ONLY ONE STACK FAIL? 


PAGE 


ADDRESS 


01663 
01664 
01665 


01666. 


01667 
01670 
01671 
01672 
01673 
01674 


01675 
01676 
01677 
01700 


01701 
01702 
01703 


01704 


01705 
01706 
01707 
01710 


01711 
01712 


0n29 
INSTRUCT 
5055 90 
34 1670 
13 900 
61 1704 
34 1674 
13 onn0 
5073 90 
02 4435 
61 1704 
5073 00 
U2 4301 
12 4301 
51 4234 
G4 4234 
12 4301 
52 4235 
U4 4235 
56 4302 
34 1661 
5073 90 
12 4234 
61 1734 
10 4434 
06 4235 


veI-F 


SEQNO 


001572 
001573 
001574 
001575 
001576 


G01577 
001600 
001601 
001602 
001602 
001604 
001605 
001606 


001607 
001610 
001611 
G0161le2 
001615 
001614 
001615 
001616 


001617 
001620 
G0162l1 
001622 
001625 
001624 
001625 
001626 


001627 
001630 


LASEL 


* 


SPADR7A 


SPADRE- 


e+ Hee 


SPADRY 


STATEMENT 
JPNOT*SPADR7A 
RSHAL*14 


CMAL*NOO0004 
JPNOT*SPADR9 


~ CMAL*HNS 


JPNOT*SPADRI 


ENTAL*ECL 
ENTAU*N0O07777 
CMSK¥N777777 
JPNOT*SPADRS 


ENTAL*EC? 
CMSK*NOO00000 
JPEQ*SPADRYO 


ENTAU*ECL 
ENTAL*¥EC2] 
STOP*40 


LUP*RECYCLE 
IUP*SPADR 
RESERV*07 


NO 

YESe FORM THE STACK NUMBER IN 
THE LOWER TwO DIGITS OF AL. 

WAS IT STACK O4% THAT FAILED? 

NO» EXIT FROM THE SPADR 


SUBROUTINE. 
YESe IS THE MEMORY SIZE 20K? 
NO» EXIT FROM THE SPADR 
SUBROUTINE. | 


HAS THE FAILURE BEEN ISOLATED? 
YES*e STOP AND DISPLAY THE ERROR 


CODES. 


NO*e EXIT FROM THE SPADR 
SUBROUTINE. 


THIS ERROR STOP IS THE RESULT OF 
AND OPEN INPUT DIODE OR AN OPEN 
TRANSISTOR IN AN ADDRESS 
TRANSLATION CIRCUIT. 

RECYCLE THE MEMNRY TEST. 

EXIT FROM THE SPADR SUBROUTINE 


* THE SBDROP SUBROUTINE IS REFERENCED WHEN A SINGLE BIT 


DROPPED FAILURE IS DETECTED BY THE MAIN PROGRAM. 


SBDROP 


PAGE 


ADDRESS 


01713 
01714 


01715 
01716 


01717 


01720 


01721 
01722 
01723 
01724 


01725 


01726 


01727 


01730 
01731 
01732 


01733 
01734 
01735 


0030 
INSTRUCT 
63 172i 
5042 14 
02 4x7 
63 11734 
02 4250 
63 1734 
12 4D r®y 
10 4423 
06 4445 
63 1730 
12 4D RS 
06 4366 
61 1734 
10 4234 
12 4935 
5056 40 
55 4o7s5 
55 1635 

000000 


Gc I-P 


SEQ@NO 


001631 
001632 
001633 
001634 
001635 


001636 
001637 
001640 
001641 
001642 
001643 
001644 
001645 


001646 
001647 
001650 
YV01651 
001652 
001653 
G01654 
001655 


001656 


001657 
001660 
001661 
001662 
001663 
001664 
0015665 


001666 
001667 


LABEL 


e+ %& & H + 


* 20K TO 32Kr 


* 
SBDRUP 


+ ee & 


* 


SBDROPA 


BK e 


STATEMENT 


DETERMINES wHICH STACKS THE FAILURE OCCURS INe 
SBDROP USES THE SELECT SUBROUTINE To TEST STACKS 00 

THROUGH 07 AND RECORDS THE RESULTS IN THE FORM OF A FLAG 
ESie 


FIRST» 


THE PROGRAM THEN BRANCHES TO SBOROPA FOR A MEMORY 


SIZE OF &K TO 16Ke 


ENTAL*N777777 
ENTAU*NO0 7000 
RUP*SELECT 
ENTAL*HNS 


CMAL*NO00004 


JPMGR*SBDROPA 
CMAL*NO00010 
JPMGR*SBDROPB 
JP*SBDROPC 


l2Kr OR 16Ke 


ENTAL¥*ES1 
ENTSK*2 
CMALB*SNOFLT8K 
JPEQ*NODROP 
BUP*LOK=2 
JP*ABITS 


OR TO SBOROPB FOR A MEMORY SIZE OF 


OR TO SBDROPC FOR A MEMORY SIZE OF 36K TO 65K. 


TESTS FOR A SINGLE BIT DROPPED 
IN STACKS 00 THROUGH 07. 


HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE-6 
IF MEMORY SIZE IS 8Ke 12Ke OR 


16Ke GO TO SBDROPA. 

IF MEMORY SIZE IS 20Ke 24Ke 28Kr 
OR 32Ke GO TO SBDROPB-. 

IF MEMORY SIZE IS 36K TO 65K» 
GO TO SBDROPC. 


SBDROPA EVALUATES THE SINGLE BIT DROPPED ERROR FLAG FOR 
ON THE BASIS OF THIS EVALUATION THE 


* PROGRAM BRANCHES TO AN ERROR STOP.. 


ERROR FLAG 


IF NO EXISTING STACKS 00 THROUGH 
O03 FAIL GO TEST THE BANK 0 
ADDRESS TRANSLATION. 

IF AT LEAST ONE BUT NOT ALL 


STACKS IN BANK O DROP A BIT 
GN TO ERRO® STAP ABIT3.- 


PAGE 


ADDRESS 


01744 
01745 
01746 
01747 


01750 


01751 
01752 
01753 
01754 


01755 
01756 
01757 
01769 
01761 
01762 


0031 
INSTRUCT 
12 4435 
10 4421 
76 2455 
12 4250 
02 4371 
67 1755 
02 4373 
67 1763 
34 2093 
12 440 
36 0002 
03 4337 
61 2452 
73 #1757 
34 2966 


921-7 


SEQNO 


001670 
001671 
001672 
0016735 
001674 


001675 
001676 
001677 
001700 
001702 
001702 
001703 
001704 


001705 
001706 
001707 
001710 
001711 
001712 
001713 
001714 


001715 
001716 
001717 
001720 
001721 
001722 
001723 
001724 


001725 
001726 


LABEL 


ete te & 


SBDROPB 
* 


* eee H % 


% %& 


20Ke 24K» 


STATEMENT 


ENTAU*NO000377 


ENTAL*ES1 

~ CMSK*N000017 
JPEQ*ABIT24 
ENTBK#*3 
CMALB*SBNKOT20K 


JPEQ*ABIT25 


BUP*LOK=2 
ENTBK*3 
CMALB*SNOFLT20K 
JPEQ*NODROP 
BUP*LOK=2 
ENTAU*N000360 
CMSK*NO000000 
JPNOT*ABITS 


JP*ABITY 


ERROR STOP. 


PAGE 


ADDRESS 


SBDROPB EVALUATES THE SINGLE BIT DROPPED ERROR FLAG FoR 
e&kKk e OR 32K e 
THE PROGRAM BRANCHES TO AN ERROR STOP. 


ON THE BASIS OF THIS EVALUATION 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 

ERROR FLAG. 

IF STACKS 04 THROUGH O7 DROP A 
BIT GO TO ERROR STOP ABIT24. 


IF STACKS 00 THROUGH 03 DROP A 
BIT GO TO ERROR STOP ABIT23-6 


IF NO EXISTING STACKS 00 THROUGH 
O07 FAIL GO TEST THE BANK O AND 
BANK 1 ADDRESS TRANSLATIONS 

IF AT LEAST ONE STACK BuT NOT 
ALL STACKS IN BANK 90 | 
DROP A BIT GO TO ERROR STOP 


ABIT3. 

IF AT LEAST ONE STACK BUT NOT 
ALL STACKS IN BANK 1 DROP A 
BIT GO To ERROR STOP ABIT4. 


SBDROPC EVALUATES THE SINGLE BIT DROPPED ERROR FLAG FOR 
STACKS 00 THROUGH 07 FOR 36K TO 65K OF MEMORYe 
BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO AN 


ON THE 


01763 


01764 
01765 
01766 
01767 
01770 
01771 


01772 
01773 
01774 
01775 
01776 
01777 


02000 


02001 


02002 


0032 


INSTRUCT 


10 


12 
06 
61 
36 
05 
61 


73 
36 
03 
61 
73 
10 
06 
63 


34 


4406 


WOK0 
G375 
2116 
0003 
4356 
2112 


1770 
0003 
4342 


2452 


1774 
&405 
4366 
2066 


2072 


LO [-F 


SEQNO 


001727 
001730 
001731 
001732 
001733 


001734 
001755 
G01736 
001737 
001740 
001741 
001742 
001743 


001744 
001745 
001746 
001747 
001750 
001751 
001752 
GV01753 


001754 
001755 
001756 
Q01757 
001760 
001761 
001762 
001763 


001764 
001765 


PAGE 


LABEL STATEMENT ADDRESS 
SBDROPC ENTAU*N000377 MASKS OUT THE MEMORY SIZE PORTION 02003 
* OF THF ERROR FLAGe 

ENTAL*ES1 ERROR FLAG. 02004 
CMSK*NQO0000 IF NO STACKS 00 THROUGH 07 FAIL 02005 
JPEQ*SBDROPD GO TEST STACKS 10 THROUGH 17-6 02006 
CMSK*N000360 IF STACKS G0 THROUGH 03 DROP A 02007 
JPEQ*ABIT23 BIT GO TO ERRAR STOP ABIT236 02010 
CMSK¥*NO00017 IF STACKS 04 THROUGH 07 DROP A 02011 
JPEQ*ABIT24 BIT GO TO ERROR STOP ARBIT24.e 02012 
CMSK¥N000377 IF STACKS 00 THROUGH O07 DROP A 02013 
JPEQ*ABIT28 BIT GO To ERROR STOP ABIT2B. 02014 
ENTAU*N000360 IF AT LEAST ONE STACK BUT NOT 02015 
CMSK*NO00000 ALL STACKS IN BANK O DROP A 02016 
JP*ABITY TF AT LEAST ONE STACK BUT NOT 02017 

* ALL STACKS IN BANK 1 DROP A 

. BIT 60 TO ERROR STOP ABIT4. 

x 

* SBDROPD USES THE SELECT SUBROUTINE TO TEST STACKS 10 

* THROUGH 17 AND RECORDS THE RESULTS IN THE FORM OF A FLAG 

* ESle THE PROGRAM THEN BRANCHES TO SSNDROPE FOR A MEMORY 

* SIZE OF 36K TO 49K» OR TO SBDROPF FOR A MEMORY SIZE OF 

* 53K TO 65Ke 

* 

SBDROPD ENTAL*N?777777 TEST FOR A SINGLE BIT DROPPED IN 02020 
ENTAU*N1LOOO00 STACKS 10 THRNUGH 17-6 02021 
RJUP*SELECT 02022 
ENTAL*HNS HIGHEST NUMBERED STACK INDICATES 02023 

* THE MEMORY SIZE. 

CMAL*NOOOO14 IF MEMORY SIZE 1S 36Ke 40Ke 45Ke 02024 
JPMGR*SBDROPE OR 49Ke GO TO SBDROPE. 02025 
JP *SBDROPF IF MEMORY SIZE TS 53Ke S7Ke 61Ke 02026 


0N33 
INSTRIICT 
10 44ung6& 
12 4oud 
06 4366 
61 2nN20 
06 44n5 
61 2112 
06 &375 
61 2116 
06 4406 
61 2122 
10 &4yns 
06 4366 
34% 2nN72 
12 4435 
10 44?6 
76 2455 
12 4250 
02 &374 
A7 2027 
34 2040 


8c I-P 


SEQNO 


001766 
001767 
001770 
001771 
00177e 


001773 
001774 
001775 
001776 
001777 


002000 


002001 
002002 


002003 
002004 
002005 
002006 
002007 
002010 
002011 
002012 


002015 
002014 
002015 
002016 
002017 
002020 
002021 
002022 


002025 
002024 


x*eeke*e ie 


*x 
* 


SBDROPE 


% * 


HUl e HH OH H 


LABEL 


STATEMENT 


PAGE 


ADDRESS 


UR 65Ke GO TO S8DROPF. 


SBOROPE EVALUATES THE SINGLE BIT DROPPED FRROR FLAG FOR 


STACKS 10 THROUGH 17 FOR 36K TO 49K OF MEMORY.~ 


ON THE 


BASIS OF THIS EVALUATION THE PROGRAM 3RANCHES TO AN 


ERROR STOP 


ENTAU*NO000377 


ENTAL¥*ES1 


CMSK*N000377 
JPEQ*ABIT568 


ENTBK*3 


CMALB*SNOFLT36K 
JPEG * 


NODROP 


BUP*LOK~2 


JP*ABIT6 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAG. 

ERROR FLAG. 

IF STACKS 10 THROUGH 17 DROP A 
BIT GO TO ERROR STOP ABIT568- 


IF NO EXISTING STACKS 10 THROUGH 
13 FAIL GO TEST THE BANK O+ 
BANK 1+* AND BANK 2 ADDRESS 
TRANSLATIONS- 

IF AT LEAST ONE BUT NOT ALL 
STACKS IN BANK 2 DROP A BIT 
GO TO ERROR STOP ABIT6.> 


SBDROPF EVALUATES THE SINGLE BIT DROPPED ERROR FLAG FOR 


STACKS 10 THROUGH 17 FOR S3K TO 65K OF MEMORY. 


ON THE 


BASIS OF THIS EVALUATION THE PROGRAM BRANCHES TO AN 
ERROR STOP. — | | 


BDROPF 


ENTAU*N000377 


ENTAL*ES1 


CMSK*¥N000017 
JPEQ*ABITS7 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 
ERROR FLAG. 


IF STACKS 14 THROUGH 17 DROP A 
BIT GO TO ERROAR STOP ABIT57.« 


02027 
02030 
02031 
02032 
02053 
02034 
02035 
0203556 


02037 


02040 
02041 


02042 
02043 


0034 
INSTRUCT 
10 44n6 
12 Youn 
06 4496 
61 2142 
36 0003 
O03 44246 
61 2452 
73 2NRy 
34 23502 
10) 44un6 
12 4oug 
06 4375 
61 2132 


6¢ I-P 


SEQNO 


002025 
002026 
002027 
0020350 
002031 


O0203c 
002033 
002034 
002035 
002036 
002037 
002046 
002041 


O0204e 
VO2045 
UO2044 
002045 
002046 
002047 
002050 
002051 


00205e 
002055 
002054 
002055 
002056 
002057 
002060 
002061 


002062 
602063 


Pee eK 


%& HHH 


LABEL 


STATEMENT 


CMSK*N000377 
JPEQ*ABIT5& 
ENTSK*3 
CMALB*SNOFLT53K 
JPEQ*NODROP 


BUP*LOK=2 


ENTBK*3 
CMALB*SBNK2T53K 
JPEQG*ABIT56 
BUP*LOK@2 
ENTAU*NO000360 
CMSK*NOO00000 


JPNOUT*#ABITO 
JP*ABIT? 


IF STACKS 10 THROUGH 17 DROP A 
BIT GO TO FRROR STOP ASIT5&. 


IF NO EXISTING STACKS 10 THROUGH 
17 FAIL GO TEST THE BANK O° 


BANK le 3ANK 2e AND BANK 3 
ADDRESS TRANSLATIONS. 


IF STACKS 10 THROUGH 13 DROP A 
BIT GO TO ERROR STOP ASITS6¢ 


IF AT LEAST ONE BUT NoT ALL 
STACKS IN BANK 2 DROP A BIT 


GO TO ERROR STOP ABITG. 

IF AT LEAST ONE BUT NOT ALL 
STACKS IN BANK 2 DROP A BIT 
GO TO ERROR STOP ABIT?7.- 


THE FOLLOWING ERROR STOPS SERVE BOTH SBPICK AND SS8DROP. 


BIT2 


ABITS 


ENTAUFESI 


ENTAL*FAILPTIN 
STGP *€4y 


TUP*RECYCLE 


ENTAU*ES1 
ENTAL*FAILPTTN 


ERROR CONDE To All. 
FAILING PATTERN TO AL. 


REPLACE 60ZXX AND 7OZXX(ROTH ON 
THE SAME CARD) ON CHASSIS 6¢ 


WHERE XX REPRESENTS THE FAILING 


BIT POSITIONe REFER TO FIGURE 
9-175 IN THE LOGIC PRINTS» 
RECYCLE THE MEMORY TEST. 


ERROR CODE To Atle 
FAILING PATTERN TO ALe 


PAGE 


ADDRESS 


02044 
02045 
02046 
02047 
02050 


02051 


02052 
02053 
02054 
02055 
02056 
02057 


02060 
02061 


02062 


02063 
02064 


0206¢ 


02066 
02067 


ON35 
INSTRUCT 
06 446 
61 2136 
36 00903 
05 4352 
61 2452 
73 2047 
36 0003 
03 4362 
61 21°76 
73 2053 
19n 44uns 
06 42366 
63 2192 
34 2196 
10 4&2460 
12 4246 
5956 40 
55 4275 
10 4240 
l2 4246 


0eT-F 


SEQNO 


002064 


. 002065 


002066 
002067 


002070 


002071 
002072 
002073 
002074 
002075 
002076 
002077 
002100 


002101 
002102 
0021035 
002104 
002105 
002106 
002107 
002110 


002111 
002112 
002113 
002114 
002115 
002116 
002117 
002120 


002121 
002122 


e+e ek & 


% 


A 


% 


* 


A 


+ 


LABEL 


BIT4 


BIT6 


PAGE 


STATEMENT ADDRESS 
STOP*40 | 02070 
| REPLACE 20ZXX ON CHASSIS 6¢ WHERE 

XX REPRESENTS THE FAILING BIT 
POSITION. REFER TO FIGURES 
9-157 THROUGH 9-165 IN THE 
LOGIC PRINTS. | 
IJP*RECYCLE RECYCLE THE MEMORY TEST. 02071 
ENTAU*ES1 ERROR CODE To Atle 02072 
ENTAL*FAILPTITN FAILING PATTERN TO AL.- 02073 
STOP*40 | 02074 
REPLACE 302XX ON CHASSIS 6¢ WHERE 
XX REPRESENTS THE FAILING BIT 
POSITIONe REFER TO FIGURES 
9-166 THROUGH 9-174 IN THE 
LOGIC PRINTS. 
IJUP*RECYCLE RECYCLE THE MEMORY TEST. 02075 
ENTAU*ES1 ERROR CODE To Aue 02076 
ENTAL*FAILPTITN FAILING PATTERN TO ALe 02077 
STOP*«4&0 02100 
REPLACE 612XX AND 71ZxX( BOTH ON 
THE SAME CARD) ON CHASSIS Se 
WHERE XX REPRESENTS THE FAILING 
BIT POSITIONe REFER TO FIGURE 
9-175 IN THE LOGIC PRINTSe 
ITUP*RECYCLE RECYCLE THE MEMORY TEST. 02101 
ENTAU*ES1 ERROR CODE To Aue | 02102. 
ENTAL*FAILPTTN FAILING PATTERN TO ALe 02103 
STOP *40 02104 


REPLACE 20Z2XX ON CHASSIS 5¢* WHERE 


XX REPRESENTS THE FAILING BIT 
POSITION. REFER TON FIGYRES 


0036 


INSTRUCT 


5056 40 


55 4275 
10 4240 
12 4246 
5056 40 


55 4275 
10 4240 
12 4246 
5056 40 


55 4275 
10 42490 
12 4246 
5056 40 


TE l~F 


SEONO 


002123 
002124 
002125 
002126 
002127 


002130 
002131 
002132 
002133 
002134 
002135 


002136" 


002137 


002140 
002141 
002142 


002143 
002144 
002145 
002146 


002147 
U02150 
OG2151 
00215e 
UG2153 
Q02154 
002155 


002156 
CO2157 


LABEL 


ABIT7 


ete Hk 


ABIT23 


Hee He % 


% 


ABIT24 


STATEMENT 


- TUP*RECYCLE 


ENTAU*ESL 
ENTAL*FAILPTITN 


STOP*40 


IUP*RECYCLE 
ENTAU*ESL 


ENTAL*FAILPTTITN 


STOP*4G 


TUP*RECYCLE 
ENTAU*ES1 
ENTAL*¥FAILPTTN 
STuUP*4go 


9-157 THROUGH 9-165 IN THE 
LOGIC PRINTS. 
RECYCLE THE MEMORY TEST. 
ERROR CODE To Alle 


FAILING PATTERN TO AL. 


REPLACE 30ZXX ON CHASSIS 5» 


WHERE 


XX REPRESENTS THE FAILING BIT 


POSITION. 
9-166 THROUGH 9"174 IN THE 
LOGIC PRINTS.» 
RECYCLE THE MEMORY TEST. 
ERROR CODE TO AUe 


FAILING PATTERN TO ALe 


REPLACE 60ZXX AND 70ZXX(SAME CARD) 


AND 202XXe ALL ON CHASSIS 
WHERE XX REPRESENTS THE FA 
BIT POSITIONe REFER TO FI 
9-175(60Z2XX%*7NZ2KXX) AND TO 


REFER TO FIGURES 


6% 
TILING 
GURE 


FIGURES 97157 THROUGH 9-165 


(202XX) 
RECYCLE THE MEMORY TEST. 
ERROR CONDE TO Alle 
FAILING PATTERN TO ALe 


REPLACE 602XX AND 702XX(SAME CARD) 


AND 30Z2XX* ALL ON CHASSIS 


IN THE LOGIC PRINTS. 


63 


WHERE XX REPRESENTS THE FAILING 


PAGE 


ADDRESS 


02105 
02106 
02107 


02110 


02111 
02112 


02113 
02114 


02115 
02116 
02117 
02120 


0037 
INSTRUCT 
55 4275 
10 4240 
12 4246 
5056 40 
55 4o75 
10 4240 
12 4246 
5056 40 
55 4o75 
10 4240 
12 42u6 
5056 40 


cEI-P 


SEQNO 


002160 
002161 
002162 
002163 
002164 


002165 
002166 
002167 
002176 
002171 
002172 
002173 
002174 


002175 
002176 
002177 
002200 
002201 
002202 
002203 
002204 


002205 
002206 
002207 
002210 


002211 
002212 
002215 


002214 
002215 


LABEL 


ete %& 


ABIT28 


%eHeHH 


*%*eeeetee & 


ABITS6 


STATEMENT 


IUP*RECYCLE 


ENTAU*ES1 
ENTAL*FAILPTIN 


STOP*4K0 | 


IJP*RECYCLE 


ENTAU*ES1 
ENTAL*FAILPTTN 


STOP*40 


THIS STOP IS THE RESULT OF THE 


PAGE 


ADDRESS 
BIT POSITIONe REFER TO FIGURE 
9-175(60ZXxK»e 7NZKXX) AND TO 
FIGURES 9-166 THRNUGH 9174 
(30Z2XX) IN THE LOGIC PRINTS. 
RECYCLE THE MEMORY TEST. 02121 
ERROR CODE TO Aue — 02122 
FAILING PATTERN TO AL. 02123 
02124 


A FAILURE OF ONE OF THE 

FOLLOWING CIRCUITS» 

(1) 602XX OR 7OZXX(BOTH ON THE 
SAME CARD) ON CHASSIS 5s SEE 


FIGURE 9-175 IN THE LOGIC 
PRINTSe 

(2) 652XX ON CHASSIS 8 SEE 
FIGURES 9-111 THROUGH 9-113, 
IN THE LOGIC PRINTS. 

NOTE THAT XX REPRESENTS THE 

FAILING BIT POSITION. 


RECYCLE THE MEMORY TEST. 02125 
ERROR CODE TO AUe 02126 
FAILING PATTERN To AL. 02127 

02130 


REPLACE 612XX AND 71ZXX(SAME CARD)” 


AND 20ZXX* ALL ON CHASSIS 53 
WHERE XX REPRESENTS THE FAILING 
BIT POSITIONe REFER TO FIGURE 


9-175(61Z2XXe71Z2XX) AND TO 
FIGURES 99157 THROUGH 9-165 


0038 


INSTRUCT 


55 4275 


10 4240 
12 42k6 
5056 40 


55 4275 


10 4240 
12 4246 
5056 40 


ee t-P 


SEQNO 


002216 
002217 
002220 
002221 
002222 


002222 


002224 
G02225 
002226 
002227 


002230 


002231 


002232 
002233 
002234 
002235 
002236 
002237 
002240 
002241 


002242 
002243 
002244 
002245 
002246 
002247 
002250 
002251 


002252 
002253 


LABEL 


* 


ABITS7 


*% 


* Hee 


ABIT58& 


* eH HR 


eet neetene ek 


ABITS68 


PAGE 


STATEMENT © ADDRESS 


(20ZXX) IN THE LOGIC PRINTS. 
RECYCLE THE MEMORY TEST. 
ERROR CODE To Aue 
FAILING PATTERN TO ALe 


IJP*RECYCLE 
ENTAU*ES1 
ENTAL*FAILPTIN 
STOP*«4Q 


02131 
02152 
(02133 
02154 


REPLACE 612ZXX AND 71ZxXX(SAME CARN) 


AND 30ZXX* ALL ON CHASSIS 53 
WHERE XX REPRESENTS THE FAILING 
BIT POSITIONe REFER TO FIGURE 
9-175 (61ZXX»971ZXX) AND TO 
(30ZXX) IN THE LOGIC PRINTS. 
IUP*RECYCLE RECYCLE THE MEMORY TEST. 02135 
ERROR CODE TO AUs 
FAILING PATTERN TO AL. 


ENTAU*ES1 
ENTAL*FAILPTTN 
STOP*«4O 


~—602156 
02157 
02140 
THIS STOP IS THE RESULT OF THE 

FAILURE OF ONE OF THE 

FOLLOWING CIRCUITS? 

(1) 612XX OR 712XX(BOTH ON THE 

SAME CARD) ON CHASSIS 53 SEE 


FIGURE 9-175 IN THE LOGIC 
PRINTS. 
(2) 65ZXX ON CHASSIS 8 SEE 
FIGURES 9-111 THROUGH 9-113 
IN THE LOGIC PRINTSe | 
NOTE THAT XX REPRESENTS THE 
| FAILING BIT POSITION. 
IUP*RECYCLE RECYCLE THE MEMORY TEST. 02141 
ENTAUFESL 
ENTAL*FAILPTTN 


ERROR CODE TO AtJe 02142 


FAILING PATTERN TO ALe 


02143 


0039 


INSTRUCT 


95 4275 
10 4e2uKuO 
12 4246 
5056 40 


55 4275 
10 4240 


12 42ug 
5056 40 


55 4275 


10 42460 
12 4246 


VEI-P 


SEQNO 


002254 
002255 
002256 
002257 
002260 


002261 
002262 
002263 
002264 
002265 
002266 
002267 
002270 


002271 
002272 
002275 
002274 
002275 
002276 
002277 
002300 


002301 
002302 
0023035 
002304 
002305 
002306 
002307 
002310 


002311 
002312 


eee eHeHR EE ee % & 


*% & 


LABEL 


UDROP 


PAGE 


STATEMENT ADDRESS 
STOP KYEO 02144 
THIS STOP IS THE RESULT OF THE 
FAILURE OF ONE OF THE FOLLOWING 
CIRCUITS» 
(1) 612XX OR 712XX (BOTH ON THE 
SAME CARD) ON CHASSIS 5: SEE 
FIGURE 9-175 IN THE LOGIC 
PRINTS. 
(2) 20Z2XX ON CHASSIS 6° SEE 
FIGURES 9-157 THROUGH 9-165 
OF THE LOGIC PRINTS» 
(3) 65Z2XX ON CHASSIS 8 SEF 
FIGURES 9-111 THROUGH 9-113 
OF THE LOGIC PRINTSe 
NOTE THAT XX REPRESENTS THE 
FAILING BIT POSITIONs 
IUP*RECYCLE RECYCLE THE MEMORY TEST. 02145 
THE MUDROP ROUTINE IS REFERENCED WHEN MORE THAN ONE BIT IS 
DROPPED. MUDROP DETERMS WHICH STACKS THE FAILURE OCCURS 
INe FIRST» MUDROP USES THE SELECT ROUTINE TO TEST STACKS 
00 THROUGH 07 AND RECORDS THE RESULTS IN THE FORM OF A 
FLAG ESi. THE PROGRAM THEN BRANCHES TO YUDROPA FOR 
A MEMORY SIZE OF 8K To 16Ke OR TO MUDROPB FOR A MEMORY 
SIZE OF 20K TO 32Ke OR TO MUDROPC FOR A MEMORY SIZE OF 
32K TO 65Ke 
ENTAL*N777777 TESTS FOR MORE THAN ONE BIT 02146 
ENTAU*N007000 DROPPED IN STACKS 00 02147 


THROUGH 07. | 


On4O0 
INSTRUCT 
5056 490 
55 4275 
12 = 4435 
10 4421 


Sel-P 


SEQNO 


002315 
002314 
002315 


002316. 


002317 


002320 
002321 
002322 
002325 
002324 
002325 
002326 
002327 


002330 
V023351 
002332 
002335 
002334 
002335 
002336 
002337 


002340 
002341 
00234e 
002343 
002344 
002345 
002346 
002347 


002350 
002351 


* He H% MH & 


LABEL 


STATEMENT 


RJP*SELECT 
ENTAL*HNS 


CMAL*NO00004 


JPMGR*MUDROPA 


CMAL*NO00010 
JPMGR&*MUDROPB 
JP*MUDROPC 


HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE. 


IF MEMORY SIZE IS 8Ke 12K» OR 
16K GO TO MUDROPA. 
IF MEMORY SIZE IS 20Ke 24ke 28Ke 


OR 32Ke GO TO MUDROPB. 
IF MEMORY SIZE IS 36K TO 65Ke 
GO TO MUDROPC. 


MUDROPA EVALUATES THE MORE THAN ONE BIT DROPPED ERROR FLAG 


FOR AN BkKe 


MUDROPA 
* 


12Ke 


ENTAU*NO00377 


ENTAL*ES1 
CMSK*NO000377 
JPEQ*MUDROPAIL 
ENTBK¥*2 
CMALB*SNOFLTS&K 
JPEQ*NODROP 


BUP*LOK=2 
ENTAL*®N777777 
ENTAU*NO07101 
RUP*SELECT 
ENTAL*¥ES1 
ENTSK*2 
CMALB*SNOFLT8K 
JPEX* TRANSFORM 


BUP*LOK—-2 


OR 16K MEMORY. 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAG. 

ERROR FLAG) 

TF ALL STACKS ON THROUGH 03 FAIL 
GO TO MUDROPAI. 


IF NO EXISTING STACKS 00 THROUGH 
03 FAIL GO TEST THE ADDRESS 


TRANSLATION FOR BANK O-« 

VERIFY STACK SELECTION FAILURE 
USING DIFFERENT X AND Y MATRIX 
DIODES AND STACK TRANSFORMERS. 

ERROR FLAG. 


DOES THE FAILURE REPEAT? 
NO* GO TEST STACK TRANSFORMERS 


AND THEN MATRIX DIODES. 


PAGE 


ADDRESS 


02150 
02151 


02152 
02153 


02154 
02155 
02156 


02157 


02160 
02161 
02162 
02163 
02164 
02165 


02166 
02167 
02170 
02171 
02172 
02173 
02174 
02175 


02176 


O04) 
INSTRUCT 
76 2455 
12 4250 
02 4371 
67 2157 
02 4373 
67 2212 
34 2266 
10 44N6 
12 4240 
06 446 
61 22n3 
36 O0N2 
03 4337 
61 2452 
73 «62164 
12 «4435 
10 4422 
76 2455 
12 4240 
36 0002 
03 4337 
61 3095 
73 2174 


9¢1-F 


SEQNO 


002352 
002353 
002354 
002355 
002356 


002357 
002360 


002361 


00236c 
002363 
002364 
002365 
002366 


002367 
002370 
002371 
002372 


002373 | 


002374 
002375 
002376 


002377 
002400 
002401 
002402 
002403 
002404 
002405 
002406 


002407 
002410 


*%* Sx H+ He * 


* 


% 


% 


LABEL 


ENTAU*ES1 
ENTAL*NO00000 


STOP*4Q 


IUP*RECYCLE 


STATEMENT 


YESe AT LEAST ONE BUT NOT ALL 
STACKS 00 THROUGH 03 FAILED. 

DISPLAY THE ES1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL. REGISTER. 


THIS ERROR STOP IS FOR BANK 0 X 
X OR Y STACK SELECTION FAILURES 
FOR AN 8K TO 16K MEMORY. 
RECYCLE THE MEMORY TEST. 


MUDROPA1] USES THE ADDRESS SUBROUTINE TO TEST THE BANK 0 


ADDRESS TRANSLATION} 


EXISTS AN ERROR STOP WILL OCCUR IN ADDRESS. 


IF AN ADDRESS TRANSLATION FAILURE 


TRANSLATION FAILURES EXISTS AN ERROR STOP wILL OCCUR HERE 


IN MUDROPA1. 
UDROPAL RJP*SPADR 
ENTAL*NO10000 
RJP*ADDRESS 
ENTAU*ES1 
ENTAL*NOOOOO0 


STOP*40. 


IUP*RECYCLE 


SPECIAL ADDRESS TRANSLATION 
TEST 

TEST THE BANK O ADDRESS 
TRANSLATION USING TEST 


ADDRESSES IN STACK Ol. 

DISPLAY THE ES1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL REGISTER. 


ERROR STGP DUE TO A BANK O X OR 
Y STACK SELECTION FAILURE. 
RECYCLE THE MEMORY TEST. 


MUDROPB EVALUATES THE MORE THAN ONE 8IT DROPPED ERROR FLAG 


IF NO ADDRESS 


PAGE 


ADDRESS 


02177 
02200 


02201 


02202 


02203 


022048 


02205 
02206 
02207 


02210 


02211 


on4e 
INSTRUCT 
10 4240 
12 4366 
5056 40 
55 4275 
76) 1635 
12 44ury 
76 2557 
10 4240 
12 4366 
5056 40 
55 4275 


LEI-P 


SEQNO 


002411 
002412 
002415 
002414 
002415 


O024l1lo 
002417 
002420 
002421 
002422 
002425 
002424 
002425 


002426 
002427 
002430 
002431 
002432 
002433 
002434 
U02435 


002436 


002437 
002440 
GCO02441 
O02442 
002443 
002444 
002445 


002446 
002447 


LABEL 


* FOR A 20K» 
* 


MUDROPB 
x 


STATEMENT 


24Ke 28K OR 32K MEMORY. 


ENTAU*N000377 


ENTAL*ES1 


CMSK*N000377 


JPEQ*MUDROPBS3 


CMSK*NO00017 


JPEQ*MUDROPB2 


ENTBK*3 


CMALB*SBNKOT20K 
JPEQ*MUDROPBS 


BUP*LOK=2 


ENTSK*3 


CMALB*SNOFLT20K 


JPEQ*NODROP 
BUP*LOK*2 


ENTAL*#N777777 
ENTAU*NOO7101 


RJP*SELECT 


ENTAL¥*ES1 
ENTBK*3 


CMALB*SNOFLT20K 
JPEQ* TRANSFORM 


BUP*LOK~2 


ENTAU*N000360 


CMSK*NO00000 


JPNOT*MUDROPB1 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe~ 
ERROR FLAG. 


IF ALL STACKS O00 THROUGH 07 FAIL 
GO TO MUDROPB3. 

IF ALL STACKS 04 THROUGH 07 FAIL 
GO TO MUDROPB?2. 


IF ALL STACKS 00 THROUGH 03 FAIL 
GO TO MUDROPB3. 


IF NO EXISTING STACKS 00 THROUGH 
07 FAIL GO TEST THE ADDRESS 
TRANSLATIONS FOR BANKS 0 
AND le 

VERIFY STACK SELECTION FAILURE 
USING DIFFERENT X AND Y MATRIX 
DIODES AND STACK TRANSFORMERS. 


ERROR FLAG 

DOES THE FAILURE REPEAT? 

NO» GO TEST STACK TRANSFORMERS 
AND THEN MATRIX DIODES. 


IF AT LEAST ONE BUT NOT ALL 
STACKS 00 THROUGH O07 FAIL 


GO TO MUDROPBI1. 
YESe AT LEAST ONE BUT NOT ALL 


PAGE 


ADDRESS 


02212 
02213 


02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 


02224 
02225 
02226 
02227 


02230 
02231 
02232 


022353 
02254 
02235 
02236 


02257 
02240 
02241 


02242 


0043 
INSTRUCT 
10 44n6 
12 4PeKun 
06 44056 
61 2257 
06 4375 
61 2253 
36 Onns 
03 42356 
61 2257 
73° 2221 
36 0093 
03 432 
61 24582 
73 2225 
12 4435 
10 44u22 
76 2455 
leo 4&eun 
36 0003 
03 4&suo 
61 3005 
73) «2235 
10 4Kuns 
06 4366 
63 2247 


8EI-PF 


SEQNO 


002450 
OV2451 
00245e 
002453 
002454 


002455 
002456 
002457 
O0246u 
VO2461 
002462 
U02463 
002464 


002465 
002466 
002467 
002470 
0902471 
002472 
002473 
002474 


002475 
002476 
002477 
002500 
002501 
002502 
002505 
002504 


002505 
002506 


LABEL STATEMENT 


ENTAU*ES1 
ENTAL*NO00000 


STOP*4UO 


% 


IUP*RECYCLE 


MUDROPBL ENTAU*ES1 


ENTAL*NO00000 
* 


STOP*4&Q 


+ %& 


IUP*RECYCLE 


eH 


ADDRESS TRANSLATION. 


* SUBROUTINE. IF NOT» 
* 


MUDROPB2 RJP*SPADR 
* | 


ENTAL¥*¥NO&OO000 
*x 
 RIP*ADDRESS 
JP*MUDROPBY 


% 


STACKS 04 THROUGH 07 FAILEDe 

DISPLAY THE ES1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL REGISTER. 


THIS ERROR STOP IS FOR BANK 1 X 
OR Y STACK SELECTION FAILURES 
FOR A 20K TO 32K MEMORY. 

RECYCLE THE MEMORY TEST. 

DISPLAY THE E£S1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL REGISTER. 


THIS ERROR STOP IS FOR BANK 0 
X OR Y STACK SELECTION FAILURES 
FOR A 20K TO 32K MEMORY. 
RECYCLE THE MEMORY TEST. 


MUDROPB2 USES THE ADDRESS SUBROUTINE TO TEST THE BANK 1 
IF AN ADDRESS TRANSLATION 
FAILURE EXISTS AN ERROR STOP WILL OCCUR IN THE ADDRESS 


AN ERROR STOP wILL OCCUR IN MUDROPB4. 


SPECIAL ADDRESS TRANSLATION 
TESTe 

TEST THE BANK 1 ADDRESS 
TRANSLATION USING TEST 
ADDRESSES IN STACK Q4. 

GO TO ERROR STOP IN MUDROPD4. 


MUDROPB3 USES THE ADDRESS SUBROUTINE TO TEST THE BANK 0 


PAGE 


ADDRESS 


02243 
02244 


02245 


02246 
02247 
02250 


02251 


02252 


02253 
02254 


02255 
02256 


On44y 
INSTRUCT 
10 4&240 
12 4&%366 
5056 40 
55 4275 
10 4Y2aKnO 
12 4346 
5056 40 
55 4275 
76 1635 
12 4425 
76 2557 
34 2262 


6E 1-7 


SEQNO 


002507 
002510 
002511 
002512 
002513 


002514 
002515 
002516 
002517 
002520 
002521 
002522 
002525 


002524 
002525 
002526 
002527 
002530 
002531 
002532 
002535 


002534 
002535 
002536 
002537 
002540 
002541 
002542 
002543 


002544 
002545 


LABEL 


ADDRESS TRANSLATION. 


STATEMENT 


PAGE 


ADDRESS 


IF AN ADDRESS TRANSLATION FAILURE 


AN ERROR STOP wILL OCCUR AT MUDROPB4. 


* 

* EXISTS AN ERROR STOP wILL OCCUR IN THE ADDRESS SUBROUTINE. 
* 

* 


IF NOTe 
MUDROPB3 RUP&*SPADR 
* 
. ENTAL*N0O10000 
RUP*ADDRESS 
MUDROPB& ENTAYU*ES1 
ENTAL*NOO0000 
x 
STOP*KY 
* 
* 
* 
x 
IUP*RECYCLE 


% & 


SPECIAL ADDRESS TRANSLATION 


TEST 
TEST THE BANK O ADDRESS 
TRANSLATION USING TEST 
ADDRESSES IN STACK Ol. 
DISPLAY THE ES1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL REGISTER. 


THIS ERROR STOP IS FOR FAILURES 
AFFECTING ALL OF BANK 0 OR ALL 
OF BANK 1 FOR A 20K TO 32K 
MEMORY. 

RECYCLE THE MEMORY TEST. 


MUDROPC EVALUATES THE MORE THAN ONE BIT DROPPED ERROR FLAG 


” FOR A 36K TO 65K MEMORY FOR STACKS 09 THROUGH 07. 


* 
MUDROPC 
*x 


ENTAU*€NO000377 | 


ENTAL*ES1 

CMSK*NO000000 
JPEQ*MUDROPD 
CMSK *N000360 


JPEQ*MUDROPCS 


MASKS OUT THE MEMORY SIZE PORTION 
OF THE ERROR FLAGe 

ERROR FLAG 

IF NO STACKS 00 THROUGH 07 FAIL 
GO TO TEST STACKS 10 THROUGH 
17. 

IF ALL STACKS 00 THROUGH O3 FAIL 


GO TO TEST THE ADDRESS 
TRANSLATION FOR BANK Dec 


02257 


02260 


02261 


02262 
02263 


02264 


02265 


02266 
02267 
02270 
02271 
02272 


02273 


On45 
INSTRUCT 
76 1635 
12 4uU2y 
76 2557 
10 4240 
12 4366 
5056 40 
55 4275 
10 44un6 
12 4240 
06 42366 
61 2335 
06 44905 
61 23276 


OVI-P 


SE. QNO 


002546 
002547 
002556 
002551 
002552 


002553 
002554 
002555 
002555 
002557 
002560 
002561 
002562 


002563 
002564 
002565 
002566 


002567 


002570 
002571 


002572 
002575 
002574 
002575 
002576 
002577 
002600 
002601 


002602 
002605 


* & 


LABEL 


MUDROPC1L 


STATEMENT 
CMSK*NO00017 
JPEQ*MUDROPC2 
CMSK*N000377 
JPEQ*MUDROPCS3 


ENTAL*®N777777 
ENTAU*NOO7101 
RUP*SELECT 
ENTAU*#N000377 


ENTAL*ES1 
CMSK*NO00000 


JPEQ* TRANSFORM 
ENTAU*NO000360 
CMSK*NO00000 
JPNOT*MUDROPC] 
ENTAU*ESI1 
ENTAL*NO00000 


STOP*40 


TUP*RECYCLE 
ENTAU*ES1 


ENTAL*NOQ0000 


IF ALL STACKS 04 THROUGH 07 FAIL 
GO TO TEST THE ADDRESS 
TRANSLATION FAR BANK le 

IF ALL STACKS 00 THROUGH 07 FAIL 
GO TO TEST THE ADDRESS 


TRANSLATION FOR BANK Qe 
VERIFY STACK SELECTION FAILURE 
USING DIFFERENT X AND Y MATRIX 
DIODES AND STACK TRANSFORMERS 
MASKS OUT THE MEMORY SIZE 
PORTION OF THE ERROR FLAG. 
ERROR FLAG. 
DOES THE FAILURE REPEAT? 


NOs GO TEST THE STACK SELECTION 
TRANSFORMERS AND THEN THE 
MATRIX DIODES. 

IF AT LEAST ONE BUT NCT ALL BANK 
O STACKS FAIL GO TO MYDROPC1. 


DISPLAY THE ERROR FLAG E$1 IN THE 


AU REGISTER AND CLEAR THE AL 
REGISTER. 


THIS ERROR STOP IS FOR BANK 1 
X OR Y STACK SELECTION FAILURES 
FOR A 36K TO 55K MEMORY. | 
RECYCLE THE MEMORY TEST. 
DISPLAY THE ES1 ERROR FLAG IN 


THE AU REGISTER AND CLEAR 
THE AL REGISTER. 


PAGE 


ADDRESS 


02274 
02275 


02276 
02277 


02300 


02301 


02302 
02303 


02304 
02305 


02306 
02307 
02310 
02311 
02312 
02313 
02314 


02315 
02316 


02317 


0046 
INSTRUCT 
06 4375 
61 2322 
06 446 
61 2326 
12 4u35 
10 44202 
76 2455 
10 44un6 
12 4240 
06 4366 
61 305 
10 4495 
06 43466 
63 2316 
10 4240 
12 4366 
5056 40. 
55 4275 
10 42u0 
12 4366 


TrI-F 


SEQNO 


002604 
002605 
002606 
002607 
002610 


002611 
VUV261le2 
002615 
002614 
002615 
002616 
002617 
002620 


002621 
002622 
002623 
002624 
002625 
002625 
002627 
002630 


002631 
002632 
002635 
002634 
002635 
002636 
002637 
002640 


002641 
002642 


* * 


*%*ZeeeH eH He 


I 


*% HH 


* 
* 
K 


MUDROPC3 RUP*SPADR 


* 


eo 


MUDROPCG | 


LABEL 


STATEMENT 
STOP*40 
THIS ERROR STOP IS FOR BANK O 
X OR Y STACK SELECTION FAILURES 
FOR A 36K TO 65K MEMORY. 
ITJP*RECYCLE RECYCLE THE MEMORY TEST. 
MUDROPC2 USES THE ADDRESS SUBROUTINE TO TEST THE SANK 1 
ADDRESS TRANSLATIONe IF AN ADDRESS TRANSLATION FAILURE 
EXISTS AN ERROR STOP wILL OCCUR IN THE ADDRESS SERUM TENES 
IF NOT AN ERROR STOP wILL OCCUR AT MUDROPCY. 
YDROPC2] RUJP*SPADR SPECIAL ADDRESS TRANSLATION 
TEST 
ENTAL*NO4O000 TEST THE BANK 1 ADDRESS 
TRANSLATION USING TEST 
RJP* ADDRESS ADDRESSES IN STACK 04. 
JP*MUDROPCY GO TO THE ERROR STOP IN 


MUDROPC4. 


MUDROPC3 USES THE ADDRESS SUBROUTINE TO TEST THE SANK 0. 
ADDRESS TRANSLATION- IF AN ADDRESS TRANSLATION FAILURE 


EXISTS AN ERROR STOP WILL OCCUR IN THE ADDRESS SUSR0UTINE. 
IF NOT+ AN ERROR STOP wILL OCCUR IN MUDROPC4. 


SPECIAL ADDRESS TRANSLATION 
TEST 


ENTAL*N010000 TEST THE BANK 0 ADDRESS 
TRANSLATION USING TEST 

RUP*ADDRESS ADDRESSES IN STACK Ole 

ENTAU*ESL DISPLAY THE ESL FRROR FLAG IN 


ENTAL*NOO00000 THE AU) REGISTER AND CLEAR 


PAGE 


ADDRESS 


02320 


023521 


02322 


0235235 


023524 
02325 


02326 
02527 
02350 


02331 
02335? 


0N47 
INSTRUCT 
5056 40 
55 4075 
76 1635 
12 442s 
76 2557 
34 2331 
76 1635 
12 4uryL 
76 2557 
10 4oKug 
12 4366 


‘@PrI-F 


SE@NO 


002643 
VO2644 
002645 
002646 
002647 


002650 
002651 
002652 
002653 
002654 
002655 
002656 
002657 


002660 
002661 
002662 
002665 
002664 
002665 
002666 
002667 


002670 
002671 
00267¢ 
002673 
002674 
002675 
002676 
002677 


002700 
002701 


% 


% * 


* eH He 


*x 
* 


MUDROPD ENTAL*N777777 


UDRUPE  ENTAU*N000377 


LABEL STATEMENT 


THE AL REGISTER.’ 
STOP *4&U 
THIS ERROR STOP IS FOR FAILURES 
AFFECTING ALL OF BANK Or OR ALL 
OF BANK ie OR ALL OF BOTH BANK 
OQ AND BANK 1 FOR A 36K TO 65K 
| MEMORY e | | 
IUP*RECYCLE RECYCLE THE MEMORY TEST. 
MUDROPD USES THE SELECT SUBROUTINE TO TEST STACKS 10 
THROUGH 17 FOR MORE THAN ONE BIT DROPPED FAILURES AND 
RECORDS THE RESULTS IN THE FORM OF AN ERROR FLAG ESle 
THE PROGRAM THEN BRANCHES TO MUDROPE FOR A MEMORY SIZE OF 


36K TO 49Ke OR TQ MUDROPF FOR A MEMORY SIZE OF 53K TO 65Ke 


TEST FOR MORE THAN ONE BIT 


ENTAY*N100000 DROPPED IN STACKS 10 THROUGH 

RJP*SELECT 17. 

ENTAL*HNS HIGHEST NUMBERED STACK INDICATES 
THE MEMORY SIZE. 

CMAL *NQ00014 IF MEMORY SIZE IS 36Ke GOKe 45Koe- 

JPMGR*MUDROPE OR 49K» GO TO MUDROPE. 


JP*MUDROPF IF MEMORY SIZE IS 53Ke S7Ke 61Ke 
| OR 65K» GO TO MUDROPF. 


PAGE 


ADDRESS 


02353 


02334 


02355 
02356 
023357 
02340 


02341 


02342 
02543 


MUDROPE EVALUATES THE MORE THAN ONE BIT DROPPED ERROR FLAG 


FOR STACKS 10 THROUGH 17 FOR 36K TO 49K AF MEMORY. 
MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe 
ENTAL*ES1 ERROR FLAG 


02344 


02345 


0048 
INSTRUCT 
5056 40 
55 4275 
12 4435 
10 4426 
76 2455 
12 4250 
02 4374 
67 2344 
34 2377 
10 44un6 


12 4240 


gh 1-4 


SEQNO 


002702 
002703 
002704 
002705 


— 002706 


002707 
002710 
002711 
002712 
002713 
002714 
002715 
002716 


002717 
002720 
002721 


002722 
002723 
002724 
002725 


002726 
002727 
002730 
002731 
0027352 
002733 
002734 
002735 


002736 
002737 


% % 


* & HH 


* 


MUDROPEL 


LABEL 


STATEMENT 


CMSK*NQ00377 
JPEQ*MUDROPEL 
ENTBK*3 
CMALB¥SNOFLT36K 
JPEQ*NODROP 


BUP*LOK~e 


ENTAL*®777777 
ENTAU*N1O00101 
RJP*SELECT 
ENTAL*ES1 
ENTBK*3 
CMALB*SNOFLT36K 


JPEG*TRANSFORM 
BUP*LOK=2 
ENTAU*ES1 
ENTAL*NOOOOOO 


STOP*4Q 


IJUP*RECYCLE 


IF ALL STACKS 19 THROUGH 17 FAIL 
GO TO MUDROPEL. 


IF NO EXISTING STACKS 10 THROUGH 


13 FAIL GO TEST THE BANK Or 


BANK 1e AND BANK 2 ADDRESS 
TRANSLATIONS 
VERIFY STACK SELECTION FAILURE 
USING DIFFERENT X AND Y MATRIX 
DIODES AND STACK TRANSFORMERS. 
ERROR FLAG. 


DOES THE FAILURE REPEAT? 

NO+e GO TEST STACK TRANSFORMERS 
AND THEN MATRIX DIODES. 

DISPLAY THE ESi ERROR FLAG IN THE 


AU REGISTER AND CLEAR THE AL 
REGISTER. 


ERROR STOP OUE TO AT LEAST ONE 


BUT NOT ALL BANK 2 STACKS 
FAILING FOR 36K TO 49K. 
RECYCLE THE MEMORY TEST. 


MUDROPEL USES THE ADDRESS SUBROUTINE TO TEST THE BANK 2 
ADDRESS TRANSLATION. 
EXISTS AN ERROR STOP wILL OCCUR IN THE ADDRESS SUBROUTINE. 
IF NOT AN ERROR STOP wILL OCCUR HFRE IN YUDROPEL. 


RUP*SPAOR 


IF AN ADDRESS TRANSLATION FAILURE 


SPECIAL ADDRESS TRANSLATION 


PAGE 


ADDRESS 


02346 
023547 
02359 
02351 
02352 


02353 
02354 
02355 
02356 
02357 
02369 
02361 


02362 
02363 


02364 
02365 


02366 


023557 


02370 


ONS 
INSTRUCT 
06 4k&NG 
61 2370 
36 ann3 
03 4346 
61 2452 
73 2351 
12 7777 
10 4427 
76 2455 
12 42u9g 
36 OnN3 
03 4346 
61 3095 
73 2361 
10 4240 
12 4366 
5055 40 
55 4275 
76 1635 


vrI-P 


SEQNO 


002740 
002741 
00274e 
002743 
VO2744 


002745 
002746 
002747 
002750 
002751 
002752 
002753 
002754 


002755 
002756 
002757 
002760 
002761 
002762 
002765 
002764 


002765 
002766 
002767 
002770 
002771 
002772 
002773 
002774 


002775 
v02776 


LABEL STATEMENT 
ENTAL¥*N100000 


RJP*ADDRESS 
ENTAU*ES1 


ENTAL*NOQOQO000 


STOP*4Q 


IJP*RECYCLE 


TEST 
TEST THE BANK 2 ADDRESS 
TRANSLATION USING TEST 
ADDRESSES IN STACK 10, 
YESe DISPLAY THE ERROR FLAG ESI 


IN THE AU REGISTER ANDO CLEAR 
THE AL REGISTER. 


THIS ERROR STOP IS FOR BANK 2 
X OR Y STACK SELECTION FAILURES 
FOR A 36K TO 49K. 

RECYCLE THE MEMORY TEST. 


= MUDROPF EVALUATES THE MORE THAN ONE BIT DROPPED ERROR FLAG 
* FOR STACKS 10 THROUGH 17 FOR 5S3K TO 65K OF MEMORY. 


* | 
MUDROPF ENTAU*N0O00377 
x 

ENTAL*ES1 
CMSK*N000377 
JPEQ*MUDROPFS 


CMSK*#N000017 
JPE @*MUDROPF 2 


CMAL3*SBNK2T53K 
JPEQ*eMUDROPFS 


BUP*LOK=2 


ENTAK*3 
CMALB*SNOFLT53K 


MASKS OUT THE MEMORY SIZE PORTION 


OF THE ERROR FLAGe 

ERROR FLAG 

IF ALL STACKS 19 THROUGH 17 FAIL 
GO TO TEST THE ADDRESS 


TRANSLATION FOR BANK 2e 

IF ALL STACKS 14 THROUGH 17 FAIL 
60 TO TEST THE ADDRESS 
TRANSLATION FOR BANK 36 

IF ALL STACKS 190 THROUGH 13 FAIL 
60 TO TEST THE ADDRESS 
TRANSLATION FOR BANK 2¢ 


IF NO EXISTING STACKS 10 THROUGH 


PAGE 


ADDRESS 


02371 


02372 
02373 


02374, 


02375 


02376 


02377 
02400 


02401 
02402 


02403 
02404 


02405 
02406 


02407 


02419 
02411 


0050 
INSTRUCT 
12 4426 
76 2557 
10 4240 
12 4366 
5056 40 
55 4275 
10 4406 
12 4240 
06 44606 
61 2443 
06 4375 
61 2437 
03 4262 
61 2443 
73 2405 
36 onn3 
03 4352 


SV I-?P 


SEQNO 


002777 
003000 
003001 
003002 
003003 


003004 
003005 
093006 
003007 
003010 
003011 
003012 
003013 


003014 
003015 
003016 
003017 
003020 
003021 
003502e 
003025 


003024 
003025 
003026 
003027 
003030 
003031 
003032 
003033 


003034 
003035 


MUDROPF 1 


* 


LABEL 


STATEMENT 


JPEQ*NODROP 


BUP*LOK=2 
ENTAL*N777777 
ENTAU*N100101 


RJP*SELECT 
ENTAL*ES1 
ENTBK*3 
CMALB*SNOFLTS3K 
JPEQ* TRANSFORM 


BUP*LOK~2 
ENTAY*N000360 


CMSK¥*N000000 
JPNOT*MUDROPF 1 


ENTAU*ES1 
ENTAL*NOO00000 
STOP*«4a 


IUP#RECYCLE 
ENTAU*ES1 
ENTAL*NOOOO0NN 


STOP *4y 


17 FAIL GO TEST THE BANK O» 


BANK 1» 


BANK 2¢ 


AND BANK 3p 


ADDRESS TRANSLATIONS. 
VERIFY STACK SELECTION FAILURE 
USING DIFFERENT X AND Y MATRIX 


DIODES AND STACK TRANSFORMERS. 


ERROR FLAG 


DOES THE FAILURE REPEAT? 


NO» 


GO TEST STACK TRANSFORMERS 


AND THEN MATRIX DIODES- 


IF AT LEAST ONE 
2 STACKS FAIL 
IF AT LEAST ONE 
3 STACKS FAIL 
ERROR FLAG IN 
AND CLEAR THE 


THIS ERROR STOP 


X OR Y STACK SELECTION FAILURES — 


BUT NoT ALL BANK 
S60 TO MUDROPF1.- 

BUT NOT ALL BANK 
DISPLAY THE ES1 

THE AU REGISTER 

AL REGISTERe 


IS FOR BANK 3 


FOR A 53K TO 65K MEMORY. 
RECYCLE THE MEMORY TEST. 


DISPLAY THE €&S1 


ERROR FLAG IN 


THE AU REGISTER AND CLEAR THE 


AL REGISTER. 


THIS ERROR STOP 


TS FOR BANK 2 


X OR Y STACK SELECTION FAILURES 
FOR A 53K TO 65« MEMORY. 


PAGE 


ADDRESS 


02412 


02413 
02414 
02415 


02416 
02417 
02420 
02421 
02422 


02423 
02424 


02425 
02426 


02427 
02450 
02431 


02432 
02433 
02434 


024355 


0051 
INSTRUCT 
61 2452 
73 2411 
12 4435 
10 4427 
76 24655 
12 4280 
36 0N03 
03 4352 
61 3095 
75 «2421 
10 44n5 
06 4366 
63 2433 
10 4240 
12 4366 
59056 40 
595 4275 
10 4240 
12 43656 
59056 49 


9VI-7 


SEQ@NO 


003036 
003037 
003040 
003041 
003042 


003043 
005044 
003045 
OUS04E 
003047 
003050 
VO3051 
003052 


003053 
003054 
003055 
003056 
003057 
003060 
003061 
003062 


003065 
003064 
003065 
003066 
003067 
003070 
003071 
003072 


003073 
003074 


* & H 


* 
* 


M 
* 


a 


eZee e eH 


sg 


x 
M 


* 


LABEL 


IUP#RECYCLE 


STATEMENT 


RECYCLE THE MEMORY TEST. 


MUDROPF2 USES THE ADDRESS SUBROUTINE TO TEST THE BANK 3 


ADDRESS TRANSLATION. 


IF AN ADDRESS TRANSLATION FAILURE 


EXISTS AN ERROR STOP WILL OCCUR IN THE ADDRESS SUBROUTINE. 


IF NOT» AN ERROR STOP WILL OCCUR IN MUDROPF4. 


UDROPF2 RUP*SPADR 
ENTAL*N140000 


RJP*ADDRESS 
JP*MUDROPFY4 


SPECIAL ADDRESS TRANSLATION 
TEST- 

TEST BANK 3 ADDRESS TRANSLATION 
USING TEST ADDRESSES IN 
IN STACK 14-¢ 

GO TO ERROR STOP IN MUDROPFY. 


MUDROPFS3 USES THE ADORESS SUBROUTINE TO TEST THE BANK 2 


ADDRESS TRANSLATION} 


IF AN ADDRESS TRANSLATION FAILURE 


EXISTS AN ERROR STOP wILL OCCUR IN THE ADNRESS SUBROUTINE. 
IF NOTe AN ERROR STOP wILL OCCUR IN MUDROPF4. 


UDROPF3 RJP*SPADR 


ENTAL*N1LO0000 
RJP*ADDRESS 


UDROPF4Y ENTAU*FESL 


ENTAL*NOOO0000 


STOP*4Q 


SPECIAL ADDRESS TRANSLATION 
TEST e 


TEST BANK 2 ADDRESS TRANSLATION 
USING TESTS ADDRESSES IN 
STACK 10. 


GO TO ERROR STOP IN MUDROP4. 


DISPLAY THE ES1 ERROR FLAG IN 
THE AU REGISTER AND CLEAR THE 
AL REGISTER. 


THIS ERROR STOP IS FOR FAILURES 
AFFECTING ALL OF BANK 2¢ OR ALL 


PAGE 


ADDRESS 


024356 


02437 
02440 


02441 
02440 


02443 


02444 
02445 


02446 
02447 


02450 


0052 


INSTRUCT 


55 


76 
le 


76 
34 


76 


12 
76 


10 
12 


5056 


G¥O75 


1635 
4430 


2557 
2446 


LbI-F 


SEQNO 


003075 
003076 
003077 
003100 
003101 


00310¢ 
005105 
003104 
003105 
003106 
003107 
003110 


003111 
003112 
003113 
003114 
003115 


003116 


003117 
003120 


003121 
003122 
003123 
003124 
003125 
003126 
003127 
003130 


0031351 
003132 


LABEL 


% 


NODROP 


+ ekeetne 


STATEMENT 


TUP*RECYCLE 
RJP*SPADR 


RJP*ADRXLAT 
JP*TRANSFORM 


PAGE 


ADDRESS 
OF BANK 3* OR ALL OF BOTH BANK 
2 AND BANK 3 FOR A 53K TO 65K 
MEMORY. 
RECYCLE THE MEMORY TEST. 02451 
GO TEST THE ADORESS 02452 
TRANSLATIONSe | 02453 
GO TEST THE STACK SELECTION 02454 
TRANSFORMERS~ 


THE SELECT SUBROUTINE IS USED TO DETERMINE WHICH STACKS 
FAIL. 


EIGHT STACKS* 00 THROUGH 07 OR 10 THROUGH 17° ARE 


TESTED EACH TIME SELECT IS REFERENCED- 


IF BITS ARE BEING 


* PICKED UP THE TEST PATTERN USED IS 000000*AND IF BITS ARE 
* BEING DROPPED THE TEST PATTERN USED IS 777777- 


x 
SELECT 


* 


SELECTI 
£ 
SELECT2 


0 

ENTICR*1 
STRAU*BASEADR 
STRAL*TESTPATTN 
ENTALK*7/ 


~STRAL*LOOP1 


STRAL*LOOP2] 
ENTB*BASEADR 


ENTAU*NOO0000 
LSHAU#e1 


ENTAL*®TESTPATTN 


ENTSR*10 
STRALB*0 


: 02455 
ACTIVATE Ble 02456 
BASE TEST ADORESS 02457 
TEST PATTERN | 02460 
SET UP THE REPEAT COUNTS FOR 02461 

TEST 1 AND 02462 

TEST 26 02463 

SET THE ACTIVE 9 REGISTER TO THE 02464 
THE FIRST TEST ADDRESS--TEST 1. 

INITIATE ES1 ERROR CODE 02465 

PREPARE ERROR CODE FOR RECORDING 02466 
TEST RESULTS OF THE NEXT STACK. 

| 02467 

SEE NOTE 1 IN APPENDIX Ac 02470 

02471 


0053 


INSTRUCT 


55 4275 
76 1635 


76 2536 
34 3005 


000000 
5072 oO1 
46 4225 
44 4303 
70 OnN07 


GG 4953 
U4 4Oo5BYy 
32 4225 


10 4366 
5045 o1 


12 4393 


5073 10 
45 On00 


Sh 1-7 


2EQNO 


003155 
003134 
003155 
003136 
003137 


003140 
003141 
003142 
003145 
003144 
003145 
003146 
003147 


003150 
003151 
003152 
003153 
003154 
003155 
003156 
003157 


003160 
003161 
003162 
003165 
003164 
0035165 
003166 
003167 


003170 
003171 


LABEL 


SELECTS 


* 


SELECTS 
* 


SELECTS 


SELECT6 


STATEMENT 


CMALB*0 
JPEQ*SELECTS 
LSHA*22 
ADDALK*1 
LSHA*¥22 


ENTSR*00 
ENTAL*NO10000 


ENTSR*10 
ADDAL*1 
STRAL*1 
ENTSR*00 


ISK*LOOP1 


JP*SELECTIL 
LSHA*22 
SLSET*HNSX 


STRAL*ES1 
ENTB*BASEADR 


ENTAU*NO0Q0000 
LSHAU*1 


ENTAL*TESTPATTN 
ENTSR*10 | 
CMALB*O 
JPEQ*SELECT6 
LSHA*22 
ADDALK*1 


LSHA*22 
ENTSR*00 


DOES THE STACK FAIL? 
NOs LEAVE THE ERROR BIT CLEARe 


YESe SET THE ERROR BITe 


SEE NOTE 2 IN APPENDIX Ae 

FORM TEST ADDRESS TO TEST NEXT 
STACK. | 

SEE NOTE 1 IN APPENDIX Ac 


SEE NOTE 2@ IN APPENDIX Aco 
HAVE EIGHT STACKS BEEN TESTED? 
NO»e TEST THE NEXT STACKe 
MODIFY THE ES1 ERROR FLAG TO 
INDICATE THE MEMORY SIZE.- 
SAVE THE ES1 ERROR FLAG. 
SET THE ACTIVE 8 REGISTER TO 
THE FIRST TEST ADDRESS=-=<TEST 2. 
INITIATE ES2 ERROR CODE 


PREPARE ERROR CODE FOR RECORDING 
TEST RESULTS OF THE NEXT STACK. 
TEST PATTERN 


SEE NOTE 1 IN APPENDIX Ac 
DID THE STACK FAIL? 


NO»e LEAVE THE ERROR BIT CLEAR. 


YES» SET THE ERROR BITe 


SEE NOTE 2 IN APPENDIX Ac 


PAGE 


ADDRESS 


02472 
02473 
02474 
02475 
02476 


02477 


02500 


02501 
02502 
02503 
02504 
02505 


02506 
02507 
025190 


02511 
02512 


02513 


02514 


02515 
(02516 


02517 
02520 
02521 
02522 


02523 
02524 


0054 
INSTRUCT 
93 Onn0 
61 2477 
5047 22 
71 On01 
5047 22 
5073 00 
12 4424 
5073 10 
14 0001 
44 onl 
5073 00 
57 4253 
34 2466 
5047 22 
51 4251 
44 4240 
32 4225 
10 4366 
5045 901 
12 4303 
5073 10 
03 o0nn0 
61 2524 
5047 22 
71 Onn 
5047 22 


5073 00 


6hI-F 


SEQNO 


003172 


003173 


003174 
003175 
003176 


003177 
003200 
003201 
003202 
003205 
003204 
v03205 
003206 


003207 
003210 
005211 
OUS2l2 
003215 
003214 
003215 
003216 


003217 


003220 
003221 


V03222 
V03223 


003224 
003225 


* 


* 


LABEL 


ADRXLAT 


RADR3S 


RADR2 


STATEMENT 


ENTAL*NO10000 


ENTSR*10 
ADDAL*I1 
STRAL*1 


—ENTSR*00 


ISK*LO0P2 
JP*SFLECTY 
STRAU*ES2 
TUP*SELECT 


0 
ENTAL*HNS 


ADDALK*7773 
JPALNG*RADRO 


ADDALK*7773 
JPALNG*RADRI 


ADDALK*7773 
JPALNG*RADR2 


ENTAL*®N1I40000 


RJUP*ADDRESS 
ENTAL#*#N100000 


PAGE 


ADORESS 


FORM TEST ADDRESS TO TEST THE 


NEXT STACK. 


SEE NOTE 1 IN APPENDIX Ac 


SEE NOTE 2 IN APPENDIX Ao 
HAVE EIGHT STACKS BEEN TESTED? 
NOs TEST THE NEXT STACK. 
YES» SAVE THE ESi1 ERROR FLAG. 


EXIT THE SELECT SUBROUTINE. 


HIGHEST NUMBERED STACK 


IF 8K TO 16K MEMORY 


GO TO TEST ONLY BANK 0 ADDRESS 


TRANSLATION. 


IF 20K TO 32K MEMORY 


GO TEST BANK 9 AND BANK 1 


ADDRESS TRANSLATIONS 
IF 36K TO 49K MEMORY 


GO TEST THE BANK Or 


AND BANK 2 ADDRESS TRANSLATIONS. 


IF 53K TO 65K MEMORY 


TEST THE BANK Ov 


AND BANK 3 ADOSRESS TRANSLATIONS. 


BANK le 


TEST THE BANK 3 ADDRESS 


TRANSLATION. 


TEST THE BANK 2 ADDRESS 


BANK te 


BANK 2¢ 


02525 


02526 
02527 
02535n 


02531 
02532 
02553 
02534 
02555 


025356 
02537 


02540 
02541 


02542 
02543 


02544 
02545 


02546 


02547 
02550 


055 


INSTRUCT 


12 444 


5073 10 
14 Onn! 
GG 0091 


5073 "0 
57 4254 
SHY 2514 
U6 42ul 
55 2455 


000000 
12 4250 


71 7773 
67 2554 


71 «67773 
67 2552 


71-7773 
67 2550. 


12 4430 


76 25587 
12 4426 


OS I-7 


2EQNO 


003226 
G03227 
003230 
003231 
003232 


003233 
003254 
003235 
003236 
003237 
003240 
003241 
003242 


003243 
003244 
003245 
003246 
003247 
003250 
003251 
0035252 


003255 
003254 
003255 
003256 
003257 
003260 
003261 
003262 


003263 
003264 


PAGE 


LABEL STATEMENT ADDRESS 

RUP*ADDRESS TRANSLATION.’ 02551 

RADR1 ENTAL*NO4O000 TEST THE BANK 1 ADDRESS 02552 
RJUP*ADDRESS TRANSLATION. 02553 

RADRO ENTAL*NO10000 TEST THE BANK O ANDRESS 02554 
RUP*ADDRESS TRANSLATION. 02555 
IUP*ADRXLAT 02556 

x THE ADDRESS SUBROUTINE TESTS THE ADDRESS TRANSLATION FOR 

x THE BANK SPECIFIED BY THE BASE TEST ADDRESS. BEFORE THE 

* ADDRESS ROUTINE IS REFERENCEDe THE BASE TEST ADDRESS MUST 

* BE ENTERED INTO THE AL REGISTERe THE BASE TEST ADDRESSES 

* USED TO TEST THE ADDRESS TRANSLATIONS ARE AS FOLLOWS 

x 010000 FOR BANK O» 040000 FOR BANK le 100000 FOR BANK 2e 

* AND 140000 FOR BANK 3. THE ADDRESS SUBROUTINE USES THE 

* DIGIT SUBROUTINE TO TEST EACH DIGIT TRANSLATION? IF A 

* FAILURE IS ISOLATED AN ERROR STOP WILL OCCUR HERE IN THE 

* ADDRESS TRANSLATION SUBROUTINE. 

* 

ADDRESS 0 02557 
STRAL*BASEADR SAVE THE BASE TEST ADDRESS 02560 

* 

* XDIQDE USES THE DIGIT SUBROUTINE 

* TO TEST THE X AXIS DIODE 

* SELECTION? BITS 09 THROUGH 11 

* OF THE ADDRESS. | - 

* | 
RJP*SAVEADR SAVE THE CONTENTS OF THE TEST 02561 

* ADDRESSES THAT MAY CONTAIN 

xk PROGRAM INSTRUCTIONS. 

XDIODE ENTALK*1000 TEST ADORESS INCREMENT 02562 


RJP*DIGIT 


TEST THE X AXIS DYODE SELECTION 02563 


0056 
INSTRUCT 
76 2557 
12 4425 
76 2557 
12 4ury 
76 2557 
55 2536 

o00N0nND 
44 4295 
76 4166 
70 1nn0 


76 2674 


TS I-7 


SEQNO 


003265 
003266 
003267 
003270 
0035271 


003272 
003273 
003274 
003275 
003276 
003277 
003300 
003301 


003302 
J033053 
003304 
003305 
003306 
003307 
003310 
003311 


0035312 
003315 


QU5514 
003315 
003316 
0035317 


005320 
003321 


LABEL 


STATEMENT 


RUP*RESTORE 
ENTAU*EA2 


ENTAL*EA 
JPAUZ*XGROUP 


CMAL*NO000377 
JPEQ*XGROUP 


ENTBK*7 
ENTAL*EA2 
CMALB*BITOO 


JPEQ*xXD1 
BUP*LOQK=-2 


JP*XD2 


ENTALK*0100 


RUP*VERIFYDIO 


RESTORE THE ORIGINAL CONTENTS 
OF THE TEST ADDRESS. 

ENTER AU AND AL WITH X DIODE 
SELECTION TEST RESULTS- 

IF NO TEST ADDRESSES FAIL(EA2 


EQUALS 0009000) GO TEST THE X 
AXIS GROUP SELECTION. 

IF ALL TEST ADDRESSES FAILCEAL 
EQUALS 000377) GO TEST THE X 
AXIS GROUP SELECTION. 


IF ONLY ONE TEST ADDRESS FAILED 


VERIFY THAT THE FAILURE IS NOT 


THE RESULT OF A BAD MATRIX 
DIODE. 
IF MORE THAN ONE BUT NOT ALL 


TEST ADDRESSES FAIL GO TO THE 


X AXIS DIODE SELECTION ERROR 
STOP. 
VERIFY THE FAILUREe 


IF THE FAILURE DOFS NOT REPEAT FOR 


A DIFFERENT X MATRIX DOIQDE PAIR 


CONTROL IS TRANSFERED TO THE 
MATRIX DIODE TEST DIODEMTRX. 


IF THE FAILURE REPEATS THE X AXIS 


DIODE SELECTION ERROR STOP 
OCCURS. : 


PAGE 


ADDRESS 


02564 
02565 


02566 
02567 


0257 
02571 


02572 
02573 
02574 


02575 
02576 


02577 


02600 


02601 


057 
INSTRUCT 
76 =4eNS5 
10 4232 
12 4230 
60 2606 
02 4406 
61 2606 
36 0007 
12 42932 
03 4307 
61 2600 
73 «2574 
34 2602 
70 «0190 
76 2746 


oSI-P 


SEQNO 


00332 
003325 
003324 
UO3S209 
003326 


003327 
003330 


003351 
003332 
003335 
003334 
003335 


003336 
003337 
003340 
003341 
003342 
003345 
003344 
003345 


003346 
003347 
003350 
003351 
003352 
003353 
0035354 
003355 


003356 
003357 


% & 


<M eH H 


STATEMENT 


ENTAU*EAL 
ENTAL*EA2] 


STOP *&O0 


IUP*RECYCLE 


ENTALK*0100 
RUP*DIGIT 
JPAUZ*YDIODE 


CMAL*NO00377 | 
JPEa*YOIODE 


ENTSK*®7 


ENTAL*EA2 
CMALB*BITOO 
JPEQ*XG1 


BUP*LOK=2 


DISPLAY THE ERROR FLAG EA1 IN THE 


AU REGISTER AND THE ERROR FLAG 
EA2 IN THE AL REGISTER. 


THIS ERROR STOP IS FOR xX AXIS 


DIODE SELECTION FAILURES. SEE 


THE DIGIT SUBROUTINE DESCRIPTION 


FOR AN EXPLANATION OF THE EAL 
AND EA2 ERROR FLAGS. 
RECYCLE THE MEMORY TEST. 


XGROUP USES THE DIGIT SUBROUTINE 


TO TEST THE X AXIS GROUP 
SELECTIONe BITS 06 THROUGH 08 
OF THE ADDRESS. 


TEST ADDRESS INCREMENT 

TEST THE X AXIS GROUP SELECTION 

IF NO TEST ADDRESSES FAIL(EA2 
EQUALS 000000) GO TEST THE Y 


AXIS DIQDE SELECTION. 

IF ALL TEST ADDRESSES FAIL(EAL 
EQUALS 000377) GO TEST THE 
Y AXIS DIODE SELECTION. 


IF ONLY ONE TEST ADDRESS FAILED 
VERIFY THAT THE FAILURE IS NOT 


THE RESULT OF A BAD MATRIX 
DIODE OR STACK TRANSFORMER. 


PAGE 


ADDRESS 


02602 
02603 


02604 


02605 


02606 
02607 
02610 


02611 
02612 


02613 
02614 


02615 


02616 
02617 


0058 
INSTRUCT 
10 4231 
12 49302 
5056 40 
55 4275 
70 0100 
76 2674 
60 2630 
02 446 
61 2630 

_ 36), 0007 
(12... 4232 
03 1 4307 
61 2621 
73° 2615 


ESI-Pr 


SEQNO 


003360 
003361 
003362 
003363 
003364 


003365 
003366 


003367 
003370 
003371 
003372 
003373 


003374 
003375 
003375 
003377 
003400 
003401 
003402 
003405 


003404 
U03405 
003406 


003407 
003410 
003411 
003412 


QO03413 
003414 


LABEL 


XG1 


* & HH HR * Hee HR * 


* * 


XGe 


% 


STATEMENT 


JP ¥XG2 


ENTALK*1000 


 RUP*VERIFYDIO 


RJP*VERFTRFM 


ENTAU*EA1 
ENTAL*EA2 


STOP *4O 


PAGE 


ADDRESS 
IF MORE THAN ONE BUT NOT ALL 02620 
TEST ADDRESSES FAIL GO TO THE 
X AXIS GROUP SELECTION ERROR 
STOP. 
VERIFY THE FAILURE. 02621 
02622 


IF THE FAILURE DOES NOT REPEAT FOR 


A DIFFERENT X MATRIX DIQDE PAIR 
USING THE SAME X AXIS GROUP 
SELECTION TRANSFORMER 

PROGRAM CONTROL IS TRANSFERED 
FROM VERIFYDIO TO THE MATRIX 


DIODE TEST DINMTRX. 
02623 

IF THE FAILURE DOES NOT REPEAT © 

FOR THE CORRESPONDING X AXIS 

GROUP SELECTION TRANSFORMER 

FOR A DIFFERENT STACK PROGRAM 

CONTROL wILL TRANSFER FROM 

VERFTRFM To THE STACK 


TRANSFORMER TEST TRANSFORM. IF 

FAILURE REPEATS+ THE X GROUP 

SELECTION ERROR STOP wILL OCCUR. 
DISPLAY THE ERRAR FLAG EAL IN THE 02624 
AU REGISTER AND THE ERROR FLAG 
EA2 IN THE AL REGISTER. 


02625 


O0n59 
INSTRUCT 
34 2624 
70 «inno 
76 2746 
76 2765 
10 4231 
12 42332 


02626 5056 40 


THIS ERROR STOP IS FOR X AXIS 
GROUP SELECTION FAILURES-e SEE 


vSI-F 


SEQNO 


003415 


003416 
003417 
003420 


003421 
003422 
003425 
003424 
003425 
003426 
003427 
003430 


003431 
003432 
003435 
003434 
003435 
003436 
003437 
0035440 


005441 
003442 
0034435 
OOS4G44 
003445 
003446 
003447 
003450 


003451 
00345e 


* 


LABEL 


YO! 


STATEMENT 


IJP*RECYCLE 


ENTALK*0010 
RJUP*DIGIT 


JPAUZ*YGROUP 


CMAL*N000377 
JPEQ*YGROUP 


ENTBK*7 
ENTAL*EA2] 


CMALB*BITOO 
JPEQ*YD1 
BUP*LOK@2 


JP*YD2 


ENTALK*O0001 
RUP*VERIFYDIO 


THE DIGIT SUBROUTINE DESCRIPTION 


FOR AN EXPLANATION OF THE EAL 
AND EA2 ERROR FLAGS. 
RECYCLE THE MEMORY TEST. 


YDIODE USES THE DIGIT SUBROUTINE 
TO TEST THE Y AXIS DIODE 
SELECTIONe BITS 03 THROUGH O05 
OF THE ADDRESS. 


TEST ADDRESS INCREMENT 
TEST THE Y AXIS DIODE SELECTION 


IF NO TEST ADDRESSES FAIL(EA2 
EQUALS 000000) GO TEST THE Y 
AXIS GROUP SELECTION. 

IF ALL TEST ADDRESSES FAIL(EAI 
EQUALS 000377) GO TEST THE Y 
AXIS GROUP SELECTION» 


IF ONLY ONE TEST ADDRESS FAILED 
VERIFY THAT THE FAILURE IS NOT 
THE RESULT OF A BAD MATRIX 
DIODE. . 

IF MORE THAN ONE BUT NOT ALL 
TEST ADDRESSES FAIL GO TO THE 
Y AXIS DIODE SELECTION ERROR 
STOP. 


VERIFY THE FAILURE. 


PAGE 


ADDRESS 


02627 


02650 
02651 


026352 
02653 
02654 


02655 
02656 


02657 
02640 


02641 


02642 


02643 
02644 


0N60 
INSTRUCT 
55 4o7s 
70 On10 
76 2674 
60 2651 
02 Uu4nne 
61 2651 
36 0097 
12 4232 
03 437 
61 2643 
73 2637— 
34 2645 
70 Onn. 
76 2746 


ccI-P 


SEQNO 


003453 


003454 
003455 


005456 


003457 
003460 
003461 
003462 
003463 
003464 


003465 
003466 
003467 
003470 


003471 
003472 
005475 


005474 
003475 
003476 
003477 
0035500 
00350] 
003502 
003505 


003504 
G03505 


PAGE on61 
LABEL STATEMENT ADDRESS INSTRUCT 
* IF THE FAILURE DOES NOT REPEAT FOR 
* A DIFFERENT MATRIX DIODE PAIR 
* PROGRAM CONTROL IS TRANSFERED TO 
* THE MATRIX DINDE TEST DIODEMTRX. 
* IF THE FAILURE REPEATS THE Y 
* AXIS DIODE SELECTION ERROR STOP 
* OCCURS. | 
YD2 ENTAUEAL DISPLAY THE ERROR FLAG FA1 IN THE 02645 10 4031 
— ENTAL*EA2 AU REGISTER AND THE ERROR FLAG 02646 12 49232 
* EA2 IN THE AL REGISTER» 
| STOP#40 02647 5056 40 
* THIS ERROR STOP IS FOR Y AXIS 
* DIODE SELECTION FAILURES. SEF 
* THE DIGIT SUBROUTINE DESCRIPTION 
* FOR AN EXPLANATION OF THE EAL 
* AND EA2 ERROR FLAGS. 
IUP*RECYCLE RECYCLE THE MEMORY TEST. 02650 55 4275 
* | YGROUP USES THE DIGIT SUBROUTINE 
* TO TEST THE Y AXIS GROUP 
* SELECTION? BITS 00 THROUGH 02 
* OF THE ADDRESS. | 
YGROUP ENTALK*0001 TEST ADDRESS INCREMENT 02651 70 onni 
RUP*DIGIT TEST THE Y AXIS GROUP SELECTION. 02652 76 2674 
JPAUZ*ADDRESS1 IF NO TEST ADDRESSES FAIL (EA? 02653 60 2473 
* EQUALS 000000) 60 To ADDRESS 
* . SUBROUTINE EXIT. 
CMAL*N000377 IF ALL TEST ADDRESSES FAIL(EAL 02654 02 wang 


9ST-F 


SEQNO 


003506 
003507 
0035106 
003511 
003512 


0035515 
003514 
003515 


003516 
003517 
003520 
003521 


003522 


003523 
003524 
003525 
003526 
003527 
003530 


005531 
003532 
0035353 
003534 
003535 
003536 
003537 
003540 


003541 
003542 


LABEL 


YG1 


*% 


ee HeER MH 


eee EHH & 


*% 


STATEMENT 


JPEQ*ADDRESS1 
ENTBK*7 
ENTAL*EAe2 
CMALB*BITOO 
JPEQ*YG1 


BUP*LOK=2 


JP*YG2 


ENTALK*0010 
RUP*VERIFYDIO 


RUP*xVERFTRFEM 


PAGE 


ADDRESS 
EQUALS 000377) GO To ADDRESS 02655 
02656 
02657 
IF ONLY ONE TEST ADDRESS FAILED 02660 
VERIFY THAT THE FAILURE IS NOT 02661 
THE RESULT OF A BAD MATRIX 02662 
DIODE. | . | 
IF MORE THAN ONE BUT NOT ALL TEST 
02663 
ADDRESSES FAIL GO To THE Y AXIS 
GROUP SELECTION ERROR STOP. 
VERIFY THE FAILURE 02664 
02665 


IF THE FAILURE ONES NOT REPEAT FOR 


A DIFFERENT Y MATRIX DIODE PAIR 
USING THE SAME Y AXIS GROUP 
SELECTION TRANSFORMER 

PROGRAM CONTROL IS TRANSFERED 
FROM VERIFYDION TO THE MATRIX 
DIODE TEST DIOMTRXe 


IF THE FAILURE DOES NOT REPEAT 
FOR THE CORRESPONDING Y AXIS 
GROUP SELECTION TRANSFORMER 
FOR A DIFFERENT STACKs PROGRAM 
CONTROL WILL TRANSFER FROM 
VERFTRFM TO THE STACK 
TRANSFORMER TEST TRANSFORM. 


IF THE FAILURE REPEATS THE Y AXIS 
GROUP SELECTINN ERROR STOP 


0n62 
INSTRUCT 
61 2673 
36 Onn7 
12 4232 
03 4297 
61 2664 
73 2660 
34 2667 
70 Oni10 
76 2746 


02666 76 2765 


LgT-P 


SEQNO 


VU3545 
003544 
003545 
003546 
003547 


003550 
003551 
003552 


003553 
003554 
003555 
003556 


003557 
003560 
003561 
003562 
003563 
003564 
003565 
003566 


003567 
003570 
003571 
00357e 
0035753 
003574 
003575 
003576 


003577 
003600 


LABEL 


YG2 


ADDRESS1 
DIGIT 


* 


DIGIT 
* 


* 


STATEMENT 


ENTAU*EAL 
ENTAL*EA2 


STOP*4&0 


IUP*RECYCLE 
IUP*ADDRESS 


0 
STRADR*DIGITS 
STRADR*DIGITS 
ENTALK*7 
STRAL*LOOP1 
STRAL*LOOP2 
ENTS8*BASEADR 


ENTALK*0000— 
LSHAL*1 


ENTAU*N777777 
ENTSR*10 
STRAUB*0O 
ENTAUB*0 


~ ENTSR*900 


JPAUZ*0IGIT2 


OCCURS. 


DISPLAY THE ERROR FLAG EAI IN THE 
AU REGISTER AND THE ERROR FLAG 


EA2 IN THE AL REGISTER. 


THIS ERROR STOP IS FOR Y AXIS 


GROUP SELECTION FAILURESe+ SEE 
THE DIGIT SUBROUTINE DESCRIPTION 


FOR AN EXPLANATION OF THE EA1 


AND EA2 ERROR FLAGS. 
RECYCLE THE MEMORY TEST. 
EXIT THE ADDRESS SUBROUTINE > 


MODIFY TEST ADDRESS 
INCREMENTATION INSTRUCTIONS? 


SET UP LOOPS FOR EIGHT TEST 
ADDRESSES 

ENTER B WITH THE FIRST TEST 
ADDRESS» 


INITIATE EAL ERROR FLAG. 

SHIFT ERROR CODE TO RECEIVE 
THE RESULTS OF THE NEXT TEST 
ADDRESS. 

TEST PATTERN 

SEE NOTE 1 IN APPENDIX Ac 


HAVE ALL THE BITS DROPPED? 


SEE NOTE 2 IN APPENDIX Aco 
NOe GO SET ERROR BIT. 


PAGE 


ADDRESS 


02667 
02670 


02671 


02672 
02673 


02674 
02675 
02676 
02677 
02700 
02701 
02702 


02703 
02704 


02705 
02706 
02707 
02710 


02711 
02712 


0063 
INSTRUCT 
10 44931 
12 4232 
5056 40 
95 4275 
55 2557 

000000 
74H 2716 
74 82737 
70 «0007 
44 4253 
4G 84254 
32 4225 
70 Onno 
5046 O1 
10 4435 
5073 10 
G7 Onn0 
11 oOnNnd 
5073 0 
60 2715 


8SI-P 


SEQNO 


003601 
003602 
003605 
005604 
003605 


003606 
003607 
003610 
003611 
003612 
003613 
003614 
003615 


005616 
003617 
003620 
0036e1 
003622 
003625 
003624 
003625 


003626 
003627 
0036350 
003631 
0035632 
0036353 
003634 
003635 


003636 
003637 


LABEL 


JIGIT2 
* 
DIGITS 


DIGIT4 
* 


* 


DIGITS 
* 


x 
DIGIT6 


STATEMENT 


CPAU*0 
JPAUZ*DIGITS 
ADDALK*1 


ENTSKB*0 


ISK*LOUPL 
JP*DIGITL 
STRAL*EA 


ADDAL*BASEADR 
STRAL*EAL 
ENTB*BASEADR 


ENTALK*0 
LSHAL*1 


ENTSR¥*10 
ENTAUB*0 
ENTSR*00 
JPAUZ*DIGITS 


CPAU*0O 
JPAUZ*DIGIT6 
ADDALK*1 
STRS*FAILTEST 


ENTRKB*O 
ISK*LO0O0P2 


JP*DIGITY 
STRAL*EA2]) 


HAVE ANY BITS DROPPED? 
NOe LEAVE THE ERROR BIT CLEARED. 
SET ERROR BIT REPRESENTING 
THE FAILING TEST ADDRESS. 
FORM NEXT TEST ADDRESS-» 


IS TEST 1 COMPLETE? 

NOe TEST NEXT ADDRESS. 

YES» SAVE ERROR FLAG FOR THE 
EVALUATION OF TEST 1 RESULTSe 

MODIFY TEST 1 ERROR FLAG 
SAVE FOR DISPLAY. 

ENTER B WITH THE FIRST TEST 
ADDRESS. 


INITIATE EA2 ERROR CODE. 

SHIFT ERROR CODE TO RECEIVE 
THE RESULTS OF THE NEXT TEST 
ADDRESS 

SEE NOTE 1 IN APPENDIX Ac 

HAVE ALL THE BITS DROPPED? 

SEE NOTE 2 IN APPENDIX Ac 

YESe SET ERROR 8IT-e | 


HAVE ANY BITS DROPPED? 

NOe LEAVE THE ERROR BIT CLEARED. 
SET THE ERROR BIT REPRESENTING 
THE FAILING TEST ADDRESS. | 

SAVE FAILING ADDRESS FOR THE 
VERIFICATION TESTS IF NEEDED. 

FORM NEXT TEST ADDRESS 

IS TEST 2 COMPLETE? 


NO» TEST THE NEXT ADDRESS. 
YESe SAVE THE TEST 2 ERROR FLAG. 


PAGE 


ADDRESS 


02713 
02714 


02715 


02716 


02717 
02720 
02721 


02722 
02723 
02724 


02725 
02726 


02727 
02730 
02731 
02732 


02733 
02734 
02755 
02736 


02737 
02740 


02741 
02742 


0064 
INSTRUCT 
5062 90 
60 2716 
71 = ONN1 
37 00n0 
57 4253 
34 27N4 
44 4230 
14 4925 
4G 4D 
32 4225 
70 4 =OnnD 
5046 n1 
59073 10 
11 00090 
5073 0 
60 2735 
9062 90 
60 2737 
71 0001 
42 4247 
37 OnNnd 
57 4254 
34 2726 
GY 4232 


6S 1-7 


SEQNO 


GO364L 
003641 
0035642 
003645 
003644 


GO3645 
003646 
003647 
003650 
003651 
003652 
003653 
003654 


003655 
003656 
UOQ3657 
003660 
003661 
003662 
003663 
03664 


003665 
003666 
003667 
003670 
003671 
003672 
003675 
003674 


U03675 
003676 


VERIFYDIO 


% 


+ 


* 


LABEL 


STATEMENT 


ENTAY*EA2] 


ENTAL*EA 


TUP*DIGIT 


© 


ADDAL*FAILTEST 


ENTSR*10 
STRAL*0001 


ENTALK*7777 
ENTAUB*0 


STRALB*0 
ENTALB*0 
STRAUB*0 


 ENTSR*00 


JPALZ*VERFYDIOL 
CPAL *0 
JPALNZ*VERFYDIO1L 
JP*OTODEMTRX 


VERFYDIOL IJUP*VERIFYDIO 
* 


ENTER THE TEST 2 ERROR FLAG EA2 
INTO THE AU REGISTER AND THE 
TEST 1 ERROR FLAG INTO THE 
AL REGISTER FoR THE EVALUATION 
OF THE TEST RESULTS. 


EXIT THE DIGIT SUBROUTINE. 


TEST THE FAILING ADDRESS AGAIN? 
USING THE SUSPECTED ADDRESS 
TRANSLATION CARDe BUT A 
DIFFERENT MATRIX DIODE PAIR.» 

SEE NOTE 1 IN APPENDIX Ae 

SET THE ACTIVE 8 REGISTER TO 


THE NEw TEST ADDRESS-~ 
THE TEST PATTERN IS 777777-¢ 
SAVE THE CONTENTS OF THE TEST 
ADDRESS | 


DOES THE FAILURE REPEAT? 
RESTORE THE ORIGINAL CONTENTS 
OF THE TEST ADDRESS.- 


 DEACTIVATE SR TO ALLOW THE 


PROGRAM TO REFERENCE THE 
PROGRAM CONSTANTS DOIRECTLY. 
YESe NORMAL EXIT 


YESe NORMAL EXIT 
NOe GO TEST THE STACK X AND Y 
MATRIX DIONES. 


RETURN TO THE ROUTINE THAT 
REFERENCED VERIFYDIO.- 


PAGE 


ADDRESS 


02743 


02744 


02745 
02746 
02747 


02759 
02751 


02752 
02753 


02754 
02755 
02756 


02757 


02769 
02761 
02762 
02763 


02764 


0065 
INSTRUCT 
10 4232 
12 49230 
55 2674 

0000N0 
14 4ouT 
5073 10 
u4 0001 
70 7777 
11 0000 
45 onno 
13 00N0 
47 o90n0 
5073 00 
61 2764 
5061 00 
63 2764 
34 31N5 
55 2746 


09 T-P 


SEQNO 


003677 
Q03700 
003701 
003702 
003703 


003704 
003705 
003706 
003707 
003710 
003711 
003712 
0037153 


003714 
003715 
003716 
003717 
003720 
003721 
003722 
003725 


005724 
003725 
003726 
003727 
003730 
0037351 
003732 
003733 


003734 
003735 


LABEL 


VERFTRFEM 


VERFTRFM1 
TRANSFORM 


x 
TRANSFM1 
sk 


* 


XTRANSFM 
* 


STATEMENT 


0 
ENTAL*FAILTEST 
ADDAL*N010000 


ENTSR*10 


STRAL*0001 


ENTALK*7777 
ENTAUB*O 


STRALB*O 
ENTALB*0 
STRAUB*0 


ENTSR*00 
JPALZ*VERFTRFM1 
CPAL*0 
JPALNZ*VERFTRFEM1L 
JP* TRANSFORM 
IJP*VERFTRFM 
ENTAL#*®HNS 


STRAL*LOOPIL 
ENTAL*LOOPL 
LSHAL*14% 


ADDAL*NO06000 
STRAL*BASEADR 


ENTAL*NOOO100 


TEST AN ADDRESS IN ANOTHER STACK 
STACK THAT CORRESPONDS TO THE 
FAILING ADDRESS. 

SEE NOTE 1 IN APPENDIX Ae 


SET THE ACTIVE & REGISTER TO 


THE NEw TEST ANDRESSe 
THE TEST PATTERN IS 777777. 
SAVE THE CONTENTS OF THE TEST 
ADDRESS« 
STORE 777777 IN TEST ADDRESS. 
READ FROM TEST ADDRESS. 
RESTORE THE ORIGINAL CONTENTS 


OF THE TEST ADDRESS.» 
SEE NOTE 2 IN APPENDIX Ae 
FAILURE REPEATS» NORMAL EXIT. 


FAILURE REPEATSe NORMAL EXIT. 
FAILURE DOES NOT REPEAT 


SET UP LOOP TO TEST X AND Y GROUP 


SELECTION TRANSFORMERS FOR 
EVERY STACKe 
LOOPL EQUALS STACK 
NEXTe 
FORM BASE TEST ADDRESS FOR 
CHECKING STACK AND Y GROUP 
SELECTION TRANSFORMERS. 


TO BE TESTED 


INCREMENT USED IN TESTING X 
TRANSFORMERS 


PAGE 


ADDRESS 


02765 
02766 
02767 


02770 
02771 


02772 
02773 


02774 
02775 
02776 


02777 
03000 
03001 
03002 
03003 
03004 
03005 


03006 
03007 
0301N 


03011 
03012 


03013 


0066 
INSTRUCT 
000090 
12 4ouT7 
14 4ury 
5073 10 
44 QON01 
70 7777 
11 onao 
4u5 onno 
13 onno 
47 0000 
5073 00 
61 3004 
5061 no 
63 3004 
34 3095 
55 2765 
12 4250 
G4 4253 
12 4253 
5046 14 
14 420 
44 4295 
12 44ynl 


T9I-F 


SEQNO 


003736 
003737 
003740 
003741 
003742 


003745 
003744 
003745 
003746 
003747 
003750 
003751 
003752 


003755 
003754 
003755 
003756 
003757 
003760 
003761 
003762 


003763 
003764 
003765 
003766 
003767 
003770 
003771 
003772 


003773 
003774 


LABEL 


%+ eH & 


% % 


% & & & 


% %& 


YTRANSFM 
* 


STATEMENT 


ENTAU*NO01000 


RJP*TRAN 


JPAUNG*YTRANSFM 
RSHAL*6 


SLCL*N000007 


% 


STOP*4Q 


IUP*RECYCLE 
ENTAL*NOOOQOOL 


ENTAU*NO000010 


PAGE 


ADDRESS 


USED TO MODIFY THE FAILING TEST 03014 
ADDRESS TO USE A DIFFERENT X 
MATRIX DIODE PAIR To VERIFY THE 
X AXIS STACK TRANSFORMER 


FATLURE. 
TEST THE X AXIS TRANSFORMERS FOR 03015 
THE STACKe | | 
IF NO X TRANSFORMERS FAILED? 03016 
POSITION THE. DIGIT THAT 03017 


SPECIFIES THE FAILING 
TRANSFORMER INTO THE LOWEST 
DIGIT OF AL. 
THEN CLEAR OUT ALL OTHER DIGITS 03020 


OF THE AL REGISTER» 

TEST THE Y AXIS TRANSFORMERS 

FOR THE STACK. 

; 03021 

AU CONTAINS THE FAILING STACK 

NUMBER IN OCTAL (0000SS). 
AL CONTAINS NO0000N REFERENCING 

THE FAILING X TRANSFORMER THAT 


SERVES ADDRESSES XXXNXX FOR THE 
STACK. 
RECYCLE THE MEMORY TEST. 03022 
INCREMENT USED IN TESTING Y 03023 
TRANSFORMERS « | 
USED TO MODIFY THE FAILING TEST 03024 
ADDRESS TO USE A DIFFERENT Y 
MATRIX DIODE PAIR To VERIFY THE 


Y AXIS STACK TRANSFORMER 
FAILURE. 


0067 


INSTRUCT 


10 4417 


76 3035 


66 3023 
S042 6 


52 4372 


5056 40 


55 4275 
12 4367 


10 4373 


COI-P 


SEQNO 


003775 
003776 
003777 
VO4Q00 
O04001 


00400c 
004003 
004004 
G04905 
004006 
004007 
0049010 
004011 


004012 
0040135 
004014 
004015 
004916 
004017 
004020 
004021 


004022 
004025 


004024 


004025 
0904026 
004027 
0049030 
004031 


O040S2 
004035 


* 


ee HH # 


LABEL 


TRANSF M2 


STATEMENT 


RJP*TRAN 


JPAUNG*TRANSFM2 


SLCL¥*NOQ00007 


STOP*4O. 


IJP#RECYCLE 
ISK*LOOPI 
JP*TRANSFM1 


JP*DIODEMTRX 
0 

STRAU*VERIFY 
STRADR*TRAN2 


ENTB*BASEADR 


ENTALK*7 
STRAL*LOOP2 


CL*¥FAILTEST 


TEST THE Y AXIS TRANSFORMERS 
FOR THE STACK. 

IF NO Y TRANSFORMER FAILURES GO 
TEST THE TRANSFORMERS FOR THE 
NEXT STACK. 


CLEAR OUT ALL BUT THE LOWEST 
DIGIT OF THE AL REGISTER. 

AU CONTAINS THE FAILING STACK 
NUMBER IN OCTAL (XXXXSS)- 

AL CONTAINS 90000N REFERENCING 
THE FAILING Y TRANSFORMER THAT 
SERVES ADORESSES XXXXXN FOR THE 
STACK. | 


RECYCLE THE MEMORY TEST. 
HAVE ALL THE STACKS BEEN TESTED? 
NOe TEST THE TRANSFORMERS ON 
THE NEXT STACK, 
YESe TEST THE X AND Y MATRIX 
DIODES. 
ON ALL STACKS. 
TEST X OR Y GROUP SELECTION 


TRANSFORMERS FOR A STACK 

USED TO VERIFY FAILURES 

SET UP THE TEST ADDRESS 
INCREWENTATION INSTRUCTION. 

ADORESS 6000 IN THE STACK BEING 
TESTED. 


EIGHT TRANSFORMERS ARE TESTED. 


CLEAR FAILING TEST ADDRESS 
STORAGE 


PAGE 


ANDRESS 


03025 


03026 


03027 


0305N 


03031 
03032 
03033 


03034 
03035 
03036 
03037 
03040 


03041 
03042 


03043 


0068 
INSTRUCT 
76 3035 
66 332 
52 4372 
5056 40 
55 4975 
57 4253 
34 3007 
34 3105 

0000N0 
46 4306 
74 3060 
32. 4225 
70 on07 
44 4254 
40 4247 


E9I-F 


SEQNO 


004034 
004035 
004036 
004037 


004040 — 


OO404s 
004042 
004045 
004044 
004045 
004046 
004047 
004050 


004051 
004052 
004055 


- 004054 


004055 
004056 
004057 


004060. 


004061 
004062 
004065 
004064 
004065 
004066 
004067 
004070 


004071 
004072 


LABEL 


TRANL 


STATEMENT 


ENTAL*N777777 
ENTSR*10 
ENTAUB*0 
STRALB*0 


ENTALB*0 
STRAUB *0 


ENTSR*00 | 
CMAL¥*N777777 
JPEQ*TRAN2 
ENTAU*FAILTEST 
JPAUNZ* TRANAUNEG 
STRB*FAILTEST 
ENTBKB*0 


ISK*LOOP2 


JP*TRANI 


ENTAL*FAILTEST 
JPALZ* TRANAUNEG 


ADDAL*VERIFY 
ENTSR*¥10 
STRAL*1 


ENTALK*7777 


TEST PATTERN 

SEE NOTE 1 IN APPENDIX Ac 

SAVE THE CONTENTS OF THE TEST 
ADDRESS e 


RESTORE THE ORIGINAL CONTENTS OF 
THE TEST ADDRESS. 

SEE-NOTE 2 IN APPENDIX Ae 

DID THE TEST ADDRESS FAIL? 

NOe TEST NEXT ADDRESS 

YES. WAS THIS THE FIRST 
FAILURE? 


NO» SET AU NEGATIVE AND EXIT 
FROM THE TRAN SUBROUTINEs> 

YESe SAVE THE FAILING TEST 
ADDRESS. 

MODIFY TEST ADDRESS TO CHECK THE 
NEXT TRANSFORMER} 

HAVE EIGHT TRANSFORMERS BEEN 
TESTED? 


NOe TEST THE NEXT TRANSFORMER. 

YESe HAS A TRANSFORMER FAILED? 

NOe SET AU NEGATIVE AND EXIT 
FROM THE TRAN SUBROUTINE. 

YESe MODIFY FAILING TEST ADDRESS 
FOR VERIFICATION. 

SEE NOTE 1 IN APPENDIX Ae 

SET THE ACTIVE 8 REGISTER TO THE 


NEW TEST ADDRESS- 
TEST PATTERN 7777776 


PAGE 


ADDRESS 


03044 
03045 
03046 
03047 


03050 
03051 


03052 
03053 
03054 
03055 
03056 
03057 
03060 
03061 
03062 
03063 
03064 
03065 
03066 
03067 


03070 


0069 
INSTRUCT 
12 4435 
5073 10 
11 0000 
45 0000 


13 0000 
47 0000 


5073 00 
02 4435 
61 3060 
10 4247 
62 3193 
42 4267 
37 0000 
57 4254 
34 30464 
12 4247 
61 3193 
14 436 
5073 10 
44 0001 


70 7777 


9 I-F 


SEQNO 


004073 
O04QOT74 
004075 
004076 
004077 


004100 
004101 
004102 
004105 
004104 
004105 
004106 
004107 


004110 


OO#111 
004112 
004113 
004114 
004115 
004116 
004117 


004120 
004121 
004122 
0041235 
004124 
004125 
004126 
004127 


004130 
004131 


LABEL 


ENTAUB*0 


STRALB*0 
ENTALB*0 
STRAUB *O 


ENTSR*00 
CMAL*N777777 


JPEQ*DIODEMTRX 
ENTAU*LOOP1 
ENTAL*FAILTEST 


JP*EXITTRAN 
TRANAUNEG ENTAU*N777777 
% 
EXITTRAN 
Ke 


TUP*TRAN 


STATEMENT 


SAVE THE CONTENTS OF THE TEST 
ADDRESS. 


RESTORE THE ORIGINAL CONTENTS OF 
THE TEST ADDRESSe 


SEE NOTE 2 IN APPENDIX Ac 


DOES THE TRANSFORMER FAILURE 
VERIFY? 

NO» GO TEST MATRIX DIODES. 

SET AU TO THE FAILING STACKe 

SET THE AL REGISTER To THE 
FAILING TEST ADDRESS- 


SET FLAG FOR NO TRANSFORMER 
FAILED. 
EXIT TRAN SUBROUTINE. 


¥ DIQDEMTRX TESTS ALL MATRIX DIODES EXCEPT xX AXIS MATRIX 
* DIODES 00 THROUGH 07 ON STACK 00. 
* 


DIODEMTRX ENTAL*HNS 
STRAL*LOOPIL 
x 


DIOMTRX1 ENTAL*LOOP1 
LSHAL*14 
STRAL*BASEADR 


ENTS*BASEADR 


JPALZ*DIOMTRX2 
ENTALK*77 


SET UP COUNT TO TEST THE MATRIX 
DIODES ON ALL EXISTING STACKS. 

FORM THE X DIODE MATRIX BASE | 
TEST ADDRESSe 


ENTER B1 WITH THE X DIODE MATRIX 
BASE TEST ADDRESSe 


IS STACK 00 REING TESTED? 
NOe TEST ALL 64% X AXIS MATRIX 


PAGE 


ADDRESS 


03071 
03072 


03073 
03074 


03075 
03076 
03077 


03100 
03101 


03102 
03103 
03104 


03105 


(03106 


03107 


03110 
03111 


03112 


03113 
03114 


0070 


INSTRUCT 


11 


45 
13 
47 


0000 


00n0 
0000 
0000 


5073 00 


02 
61 
10 
12 
34 
10 
55 


12 
44 


12 
KY 
32 


61 
70 


4435 
3105 


4253 
4Ou7 


3104 
4435 


3935 


4250 
4253 


4253 
S046 


14 
4225 
4205 


3117 
0077 


G9 [-7 


SEQNO 


004132 
004133 
004134 
004135 
004136 


004137 
004140 
004141 
004142 
004145 


004144 
004145 


004146 
004147 
004150 
004151 
004152 
004153 
004154 
004155 


004156 
004157 
004160 
004161 
004162 
004165 
004164 
004165 


004166 
004167 


LABEL 


DIOMTRX2 


DIOMTRX3 
x 


x 


STATEMENT 


STRAL*LOOP2 
JP*DIOMTRXS 
ENTALK*70 
STRAL*LOOP2] 
ENTBKB*0700 
ENTALK*0100 
STRADR*DIOQDE3 
ENTALK*0001 


STRADR*DIODE4R 


RUP*DIODE 


JPALZ*DIOMTRX4 


JPAUNZ*DIOMTRXY 


ENTAU*LOOP1 
RSHAL*6 
SLCL*NO000077 


STOP*40 


DIODES ON THE STACK STARTING 
WITH O0- 

YES» TEST ONLY 57 OF THE x AXIS 
MATRIX DIODES ON STACK (00) 
STARTING WITH 07- 


TEST ADDRESS INCREMENT FOR X 
AXIS MATRIX DIOQDESs. 

MODIFY TEST AODRESS 
INCREMENTATION INSTRUCTION. 

IF AN X AXIS MATRIX DIODE FAILURE 


OCCURS THIS NyMBER IS USED TO 
FORM A SECOND ADDRESS SERVED 


BY THE FAILING DIODE. IF THIS 
SECOND ADDRESS ALSO FAILS THE 
DIODE FAILURE IS VERIFIED> 
TEST THE X AXIS DIODE MATRIX FOR 
STACK (LOOP1). 
NO TEST ADDRESSES FAILED? THE 
X AXIS DIODE MATRIX IS OKe 
GO TEST THE Y MATRIX DIODES. 


“MORE THAN ONE TEST ADDRESS 


FAILEDs THE FAILURE IS NOT DUE 
TO AN X MATRIX DIODE FAILURE. 
GO TEST THE Y MATRIX DIODES. 
FAILING STACK NUMBER TO AU 
SHIFT X DIGITS TO LOWEST Two 
DIGIT POSITIONS. CLEAR ALL 
BUT THE LOWEST TwO DIGITS.» 


THIS ERROR STOP IS THE RESULT 


PAGE 


ADDRESS 


03115 
03116 
03117 
031290 
03121 
03122 
03123 


03124 
03125 


03124 


03127 


03139 


03131 
03132 
03133 


03154 


0071 


INSTRUCT 


44 
34 
70 
44 


37 


70 
74 


70 
74 


76 


61 


62 


10 


5042 


52 


4254 
3122 
0070 
O54 
0700 
01900 
3202 


0001 
5210 


3163 


3136 © 


3136 


4253 
06 
4400 


5056 40 


99T-F 


~~ SEQNO 


004170 
004171 
004172 
004173 
004174 


004175 
004176 
004177 
004206 
004201 


004202 


004203 
004204 


~004205 


004206 


— 004207 


004210 
004211 
004212 


004213 


004214 


004215 
004216 
004217 
004220 
004221 
004222 
004225 
004224 


004225 
004226 


* HHH & 


x & H & 


DIOMTRX4 


% tH 


LABEL 


STATEMENT 


IJP*RECYCLE 


ENTAL*LOOPL 


LSHAL*14 
ADDAL*N90 7000 


STRAL*BASEADR 
ENTB*BASEADR 


ENTALK*?77 
STRAL*LOOP2 


ENTALK*0001 
STRADR*DIODES3 


ENTALK*0100 
STRADR*DIODE4 


RJUP*DIODE 


PAGE 


- ADDRESS 


OF AN X AXIS VATRIX DIODE 
FAILURE» THE FAILING STACK IS 
DISPLAYED IN THE AU REGISTER 

A NUMBER 0000IU WHICH INDICATES 
THAT ALL ADDRESSES OF THE FORM 


STIUXX FAIL» WHERE ST IS THE 
FAILING STACK AND XX CAN TAKE 
ANY VALUE 00 THROUGH 77+ IS 
DISPLAYED IN THE AL REGISTER» 
RECYCLE THE MEMORY TEST. 
FORM THE Y DIODE MATRIX BASE 
TEST ADDRESS 


ENTER Bl WITH THE Y DIODE MATRIX 
BASE TEST ADDRESS. 


TEST ALL 64 Y AXIS MATRIX DIODES 
ON THE STACKe 

TEST ADDRESS INCREMENT FOR 
Y AXIS MATRIX DIODES. 


MODIFY TEST ADDRESS 
INCREMENTATION INSTRUCTION. 


IF A Y AXIS MATRIX OIQDE FAILURE 


OCCURS THIS NUMBER IS USED TO 
FORM A SECOND ADDRESS SERVED 
BY THE FAILING DIODE. IF THIS 
SECOND ADDRESS ALSO FAILS THE 
DIODE FAILURE IS VERIFIED. 


TEST THE Y AXIS DIODE MATRIX FOR 
STACK (LOOPI). 


031355 
031356 
03137 
03140 


03141 
03142 


03143 
03144 


03145 


03146 


03147 
03150 


03151 


0072 


INSTRUCT 


55 42ers 
12 4253 
5086 14 
14% url 


G4 4225 
S52 4225 


70 0977 
Gh §254 


70 60001 
7&4 322 


70» =6©0100 
7G = =3210 


76 3163 


LOI-% 


SEQNO 


004227 
004230 
004231 
004232 
004235 


004234 
004235 
004236 
004237 
G04240 
004241 
004242 
004243 


O04244 
004245 
004246 
004247 
004250 
004251 
004252 
004255 


004254 
004255 
004256 
004257 
004260 
O04¥261 
004262 
004263 


004264 
004265 


LABEL 


OITOMTRXS 


* 
* 
* 


DIODE 


DIODE 


* 


| STATEMENT 


JPALZ*DIOMTRX5 


JPAUNZ*RANDOM 


ENTAU*LOOP1 
SLCL*NO000077 


STOP*4Q 


IUP*¥RECYCLE 
ISK*LOOPI 


JP*DIOMTRX1L 
JP*RANDOM 


0 


CL*FAILDIODE 


ENTSR*10 
ENTAUB*0000 


ENTALK*7777 
STRALB*0000 
ENTALB*0000 
STRAUB*0000 


ENTSR*00 
JPALZ*DIODE2 


NO TEST ADDRESSES FAILEDe GO 
TEST THE NEXT STACK, 

MORE THAN ONE TEST ADDRESS 
FAILEDs THE FAILURE IS NOT DUE 
TO A MATRIX DIODE FAILUREe 


GO TO RANDOM ERROR STOP RANDOM. 


FAILING STACK NUMBER TO Aue 
CLEAR ALL BUT THE LOWEST TwO 
DIGITS. 


THIS ERROR STOP IS THE RESULT OF 
A Y AXIS MATRIX DIODE FAILURE. 
RECYCLE THE MEMORY TEST. 


HAVE ALL THE STACK BEEN TESTED? 

NOs TEST THE NEXT STACK. 

YES* THE PROGRAM DETECTED A 
FAILURE BUT WAS UNABLE TO 
ISOLATE ITe 60 TO A RANDOM 
ERROR STOP. 


SEE NOTE 1 IN APPENDIX Aco 
SAVE THE CONTENTS OF THE TEST 
ADDRESS- 


STORE 777777 INTO TEST ADDRESS+ 

READ FROM THE TEST ADDRESS» 

RESTORE THE ORIGINAL CONTENTS 
OF THE TEST ADDRESS. 


SEE NOTE 2 IN APPENDIX Ao 
IF THE DIODE FAILED Go TO 


PAGE 


ADDRESS 


03152 


03153 


03154 
03155 


03156 


03157 


03160 
03161 
03162 


03163 
03164 


03165 
03166 


03167 
03170 
03171 
03172 


03173 
03174 


0073 


INSTRUCT 


61 


62 


10 
52 


3160 


3227 


4253 
4400 


5056 40 


55 
57 


34 
34 


40 


4275 


4253 
3197 
3227 


000090 


G245 


5073 10 


11 


70 
45 
13 
47 


0000 


T7777 
0900 
0000 
Onno 


5073 «a0 


61 


3177 


89I-F 


SEQNO 


004266 
004267 
004270 


004271 


004272 


0042753 
004274 
004275 
O0427b 
004277 
094300 
004301 
004302 


004305 
004304 
004305 
004306 
004307 
004310 
004311 
004312 


004313 
004314 
004315 
004316 
004317 
004320 
004321 
004322 


004325 
004324 


LASEL 


DIQDE2 


* e+ HE 


+ % 


K 


* 
DIQDE3 
* 


He eH MH 


DIODES 


STATEMENT 


CPAL*0 
JPALZ*DIODES 


ENTAU*FAILDIODE 


JPAUNZ*DIOQDE6 


STRB*FAILDIODE 


ENTBKB*0 


ISK*L00P2 
JP*DIODE1 


ENTAU*NO00000 


ENTAL*FAILDIODE 
JPALZ*DIODE6 


ADDALK*0 


DIODE? . 


IF THE DIODE DIN NOT FAIL GO TO 
TEST THE NEXT DIODE. 
IF THE DIODE FAILED ENTER THE AU 


REGISTER WITH THE CONTENTS OF 
FAILING TEST ADDRESS STORAGE. 
IS THIS THE FIRST TEST ADDRESS TO 

FAIL IN THIS GROUP? 

NO» THE FAILURE IS IS NOT THE 
RESULT OF A BAD DIODE IN THE 
DIODE GROUP BEING TESTED. 

EXIT THE DIODE SUBROUTINE WITH 


AU CONTAINING A NONZERO VALUE. 
YESe THIS IS THE FIRST TEST 
ADDRESS TO FAIL’ STORE IT IN 
FAILING TEST ADDRESS STORAGE. 
INCREMENT 81 TO THE NEXT TEST 
ADDRESS e 
HAVE ALL THE DIODES BEEN TESTED? 
NOe TEST THE NEXT DIODE. 


CLEAR THE AU REGISTER. 
OID A DIODE FAIL? 
NOr EXIT THE DIODE SUBROUTINE» 


IF ONE AND ONLY ONE DIODE TEST 


ADDRESS FAILS OUT OF THE 64 
(OR 61) DECIMAL USEDe A SECOND 
ADORESS SERVED BY THE OIODE 

IS TESTED TO VERIFY THE 


FAILURE. 
SET UP SECOND ADDRESS SERVED BY 


PAGE 


ADDRESS 


03175 
03176 


03177 


03200 


03201 


03202 


03203 
03204 


03205 


03206 
03207 


03210 


5061 


61 
10 


62 


42 


37 
57 


34. 


10 
12 
61 


71 


0074 


“INSTRUCT 


00 
5202 


445 


3226 


W245 


0000 
4254 
3165 
4366 
G245 
3226 


0n00 


691-7 


SEQNO 


004325 
004326 
004327 
004330 
004331 


00433e 
004333 
004334 
004335 
004336 
004337 
004340 
004341 


004342 
004343 
004344 
004345 
004346 
004347 
004350 
004351 


004352 
004353 
004354 
008355 
G04356 
004357 
004360 
004361 


004362 
004363 


LABEL 


ra 
DIODES 
* 


* 


DIODE 
RANDOM 


*t & Me & 


+ 


STATEMENT 


ENTSR*10 


STRAL*0001 


ENTAUB*0000 


ENTALK*7777 
STRALB*0000 


ENTALB*0000 
STRAUB*0000 
ENTSR*00 
ENTAU*NO00000 
JPALZ*DIQDES 
CPAL*0 
JPALZ*RANDOM 


ENTAL*FAILDIODE 


IJP*DIODE 
ENTAU*FAILADR 
ENTAL*FAILPTTN 
STOP *4u0 


THE DIODE. 
SEE NOTE 1 IN APPENDIX Ac 
SET B1 TO THE NEW TEST ADDRESS> 
SAVE THE CONTENTS OF THE TEST 
ADDRESS. | 


STORE 777777 INTO VERIFICATION 
TEST ADDRESS- 

READ FROM VERIFICATION TEST 
TEST ADDRESS. 

RESTORE THE ORIGINAL CONTENTS 
OF THE TEST ADDRESS. 

SEE NOTE 1 IN APPENDIX Ac 


CLEAR THE AU REGISTER. 
FAILURE VERIFIES GO To DIODES. 


FAILURE DID NOT VERIFY» Go TO 
THE RANDOM ERROR STOP. 

ENTER THE AL REGISTER WITH 
THE VERIFIED FAILING OITODE 
TEST ADDRESS- 


EXIT THE DIODE SUBROUTINE. 


RANDOM ERROR STOP. THIS ERROR 
STOP OCCURS WHEN THE PROGRAM 
DETECTS A BIT(S) 

DROPPED FAILURE BUT IS UNABLE 


TO ISOLATE THE FAILURE. 
AU REGISTER CONTAINS THE 


THE 


PAGE 


ADDRESS 


03211 
03212 


03213 


03214 


03215. 


03216 
03217 
03220 


03221 
03222 


03223 


03224 
03225 


03226 
03227 
03230 
03251 


0075 


INSTRUCT 


5073 10 
G& ooo! 
11 0000 


70 «7777 
45 0000 
13 0000 
G7 0000 
5073 900 
10 4366 
61 3225 
5061 00 
61 3227 


12 4245 


55 3163 


10 42u4 - 


12 4246 
5056 40 


OLI-F% 


SEQNO 


004364 
004365 
004366 
004367 
004370 


004371 
004372 
004373 
004374 
004375 
004376 
004377 
004400 


004401 
004402 
004405 
004404 
004405 
004406 
004407 
004410 


004411 
004412 
004413 
004414 
004415 
004416 


004417 


004420 


OO44e2l 
004422 


%* & eH 


eee e & 


* 
aK 
x 


LASEL 


STATEMENT 


TUP*RECYCLE 


FAILING ADDRESS AND THE AL 
REGISTER CONTAINS THE FAILING 
PATTERNe THE CORRECT PATTERN 
IS 777777-¢ NOTE THAT IF ONLY 
ONE BIT IS DROPPEDe THE 


POSSISILITY OF A BAD CORE 
EXISTS. 
RECYCLE THE MEMORY TEST. 


THE CONTROL ROUTINE USES THE DTCONT SUBROUTINE TO TEST ALL 
OF CONTROL MEMORY USING BOTH 000000 AND 777777 PATTERNS- 
IF ONLY ONE ADDRESS FAILS THE FAILING ADDRESS AND THE 
FAILING PATTERN WILL BE DISPLAYED AT AN ERROR STOP IN 


DTCONT. 


IF MORE THAN ONE AODRESS FAILS THE CONTROL 


MEMORY ISOLATION ROUTINE ISOCONT IS REFERENCED. 


CONTROL 


0 

ENTALK*0077 
STRADR*STRA 
STRADR*ENTA 
ENTAL*N777777 


STRAL*TESTPATIN 
RJP*DTCONT 
ENTAL*NO00000 
STRAL*TESTPATIN 
RJP*DOTCONT 
ENTALK*0277 
STRADR*STRA 
STRADR*ENTA 


ENTAL*N777777 
STRAL*TESTPATTN 


CONTROL MEMORY SUBEXEC. 

_ SET UP THE DTCONT SUBROUTINE 
FOR TESTING ADDRESSES 000 
THROUGH 077 OF CONTROL MEMORY. 


USE A 777777 PATTERNe 
USE A 000000 PATTERN. 
SET UP THE ODTCONT SUBROUTINE 


FOR TESTING ADDRESSES 200 
THROUGH 277 OF CONTROL MEMORY. 


USE A 777777 TEST PATTERN. 


PAGE 


ADDRESS 


03232 


03253 
03234 
03235 
03236 
03237 


03240 
03241 


03242 


03243 
03244 
03245 
03246 
03247 


03250 
03251 


0076 


INSTRUCT 


55 


4275 


000000 
0077 
&300 
4236 
4435 


4303 
33N3 
4366 
4393 
5303 
0277 
4300 
4236 


G435 
4303 


TLI-? 


SEQNO 


004423 
OO4K24 
004425 
004426 
004427 


OO443u 
004431 
004432 
004433 
OO4KS4 
004435 
004436 
004437 


004440 


004441 — 


004442 
OO444S 
OU4K44 
004445 
004446 
OOK4NG7 


004450 
004451 
004452 
004453 
VO4G5S4 
004455 
004456 
OOK457 


004460 
004461 


LABEL 


CONTROLI 


DTCONT 


STATEMENT 


RUP*DTCONT 
ENTAL*NOQ0000 
STRAL*TESTPATTN 
RJP*DTCONT 
ENTAL*CONTSIZE 


JPALZ*CONTROLI 
ENTALK*0477 
STRADR*STRA 
STRADR*ENTA 
ENTAL*N777777 
STRAL*TESTPATIN 
RJP*DTCONT 


ENTAL*NO00000 
STRAL*TESTPATTN 
RJP*DOTCONT 
ENTALK*0677 


~ STRADR*STRA 


STRADR*ENTA 
ENTAL*N777777 
STRAL*TESTPATTN 


RJP*DTCONT 
ENTAL*NOOOO000 
STRAL*TESTPATTN 
RJP*DTCONT 
TUP*CONTROL 

0 

ENTAL*STRA 


STRAL*DTCONTI 


ENTAL*ENTA 
STRAL*DTCONTS 


USE A 000000 TEST PATTERN. 
IS THE CONTROL MEMORY SIZE 


256 (DECIMAL) woRDS? 
NOe EXIT CONTROL SUBROUTINE 
YES* SET UP THE DTCONT 
SUBROUTINE FOR TESTING 
ADDRESSES 400 THROUGH 477. 


USE A 777777 TEST PATTERN. 


USE A 000000 TEST PATTERN, 


SET UP THE DTCONT SUBROUTINE 
FOR TESTING ADDRESSES 600 
THROUGH 677. 


USE A 777777 TEST PATTERN. 


USE A 000000 TEST PATTERN. 


EXIT THE CONTROL SUBROUTINE. 

CONTROL MEMORY FAILURE DETECTION 

PRESTORE THE STARE TEST PATTERN 
INSTRUCTION. 


PRESTORE THE READ TEST ADDRESS 
INSTRUCTION. 


PAGE 


ADDRESS 


03252 
03253 
03254 
03255 
03256 


03257 
03260 
03261 
03262 
03263 
03264 
03265 


03266 
03267 
03270 
03271 
03272 
03273 
03274 


03275 


03276 
03277 
03300 
03501 
03302 
03503 
03304 
03305 


03306 
03307 


0077 


INSTRUCT 


76 3393 
12 44366 
G4 4303 
76 33903 
12 4227 


61 3302 
70) «0477 
74 4300 
74 4236 
12 4435 
Qo 43N3 
76 3393 


12 4366 
44 4303 
76 3303 
70 0677 
74% 4300 
74 4236 
12 4435 
GQ 43N3 


76 33903 
12 4366 
4G 48393 
76 = =339N3 
55 3233 

0000900 
12 4300 
44 3316 


12 4236 
4G 3323 


CLI-¥ 


SEQNO 


008462 
004463 
004464 
004465 
004466 


004467 
004470 
004471 
004472 
004475 
004474 
004475 
004476 


004477 
004500 
004501 
004502 
004503 
004504 
004505 
004506 


004507 
004510 
004511 
004512 
004513 
004514 
004515 
004516 


004517 
004520 


LABEL 


DOTCONT1 
* : 


* 


OTCONT2 
DOTCONTS 


DTCONT4 


STATEMENT 


ENTALK*77 

STRAL*LOOP1 
STRAL*LOOP2 
CL*¥FAILTEST 


JENTALSTESTCATTN 


ENTSR*10 
STRAL*0 


ISK*DTCONTI 
ISK*LOOP1 


JP*DTCONT1 


ENTSR*10 
ENTAL*0 
ENTSR*00 
CMAL*TESTPATTN 
JPEQ*DTCONT4 
ENTAU*FAILTEST 


JPAUNZ*ISOCONT 


ENTAU*DTCONTS 
STRAU*FAILTEST 
STRAL*FAILPTTN 
ISK*DTCONTS 
ISK*LOOP2 


JP*DTCONT2 


YES» 


SET WRITE LOOP COUNT. 

SET READ LOOP COUNT. 

CLEAR FAILING TEST ADDRESS 
STORAGE 


SEE NOTE 1 IN APPENDIX Ac | 

STRAL TEST PATTERN INTO TEST 
ADDRESS. 

DECREMENT STORE INSTRUCTION TO 
TO THE NEXT TEST ADDRESS. 

HAVE ALL 100 ADDRESSES SPECIFIED 
BEEN WRITTEN INTO? 


NO» GO WRITE INTO THE NEXT 
ADDRESS. 

SEE NOTE 1 IN APPENDIX Ac 

READ FROM THE TEST ADDRESS 

SEE NOTE 2 IN APPENDIX Ac 

DID THE ADDRESS FAIL? 

NO» GO TEST THE NEXT ADDRESS. 

DID ANY ADDRESS FAIL 


BEFORE? 

YESe GO TO THE ISOLATION ROUTINE 
ISOCONT. 

NO*e SAVE THE FAILING ADDRESS. 


SAVE THE FAILING PATTERN 
DECREMENT THE TEST ADDRESS. 
HAVE ALL 100 ADDRESSES BEEN 


CHECKED? 
NOe TEST THE NEXT ADDRESS. 


PAGE 


ADDRESS 


03310 


O3311 
03312 
03313 


03314 
03315 


03316 


03317 
03320 


03321 


03322 
03323 
033524 
03325 
03526 
03327 


03330 


03351 
033552 
03353 
03554 
03335 


03356 


0078 


INSTRUCT 


70 
ren 
44 
40 


12 


5073 


uy 
57 
57 


34 


5073 


12 


0077 
4253 
4254 
GOUT 


4303 
10 

onn0 

3316 


4253 


3316 


10 
0000 


5073 0 


02 
61 
10 


62 


10 


46 
44 
57 
57 


34 


4303 
3334 
42U7 


3347 


3323 
G247 
4246 
3323 
4254 


3322 


ELI-P 


SEQNO 


004521 
00452e 
004523 
004524 
004525 


004524 
004527 
004550 
004531 
004532 
0046535 
004534 
004535 


004536 
004537 
004540 
004541 
004542 
004543 
004544 
004545 


004546 
004547 
004550 
004551 
004552 
004555 
004554 
004555 


004556 
004557 


LABEL STATEMENT 
ENTAL*FAILTEST DID ANY ADDRESSES FAIL? 
JPALZ*DTCONTS NOs EXIT FROM DTCONT. 
SLCL*NO07777 
LSHA*22 
ENTAL*FAILPTTN 
STOP*40 
* THIS ERROR STOP IS THE RESULT OF 
* ONLY ONE ADDRESS FAILING ON A 
* HALF PLANE (64 ADDRESSES) e+ THE 
* FAILING ADDRESS IS DISPLAYED 
* IN THE AU REGISTER AND THE 
* FAILING PATTERN IS DISPLAYED 
* IN THE AL REGISTER. 
3 IJP*RECYCLE RECYCLE THE MEMORY TEST. 
DTCONTS IJP*DTCONT EXIT FROM DYCONT SUBROUTINE: 
* 
* THE ISOCONT SUBROUTINE IS USED TO ISOLATE CONTROL MEMORY 
* ADORESS TRANSLATIONe OR SENSE AMPLIFIER? OR DIGIT 
* DRIVER FAILURES. 
: | 
ISOCONT ENTALK*7 SET UP THE ICON LOOP COUNT FOR 
* | SUBROUTINE. 
ENTALK*7 SET UP ICON LOOP COUNT FOR 
STRAL*LOOPCOUNT TESTING CONTROL MEMORY ADDRESS 
* TRANSLATION. 
ENTAL*N777777 USE A 7777777 TEST PATTERN. 
STRAL*TESTPATIN 
CL*¥EC1 | INITIATE THE EC1 ERROR FLAGe 
CL¥EC2 INITIATE THE EC? FRROR FLAGe 
ENTALK*0010 SET THE TEST ADDRESS INCREMENT 
STRAL*INCREM TO 000010- 


PAGE 


ADDRESS 


03337 
03340 
03341 
033542 
03343 


03344 


03345 
03546 


03347 


03350 
03351 


03352 
03353 
03354 
03355 


03356 
03357 


0079 


INSTRUCT 


12 
61 
52 


4247 
3346 
4423 


S047 22 
12 4346 


5056 40 


55 
55 


70 


70 
44 


12 
44 
40 
40 


70 
rn 


4275 
3303 


0nn97 


0007 
4256 


Gu35 
4303 
G2R4 
4235 


0010 
4252 


VLI-Pp 


SEQNO 


004560 
004561 
004562 
004565 
004564 


004565 


004566 


004567 
004570 
004571 
004572 
0045735 
004574 


004575 
004576 
004577 
004600 
00%601 
004602 
004605 
004604 


004605 
004606 
004607 
004610 
004611 
004612 
004615 
004614 


004615 
004616 


* 


* 


LABEL 


ISOCONT1 


STATEMENT 
ENTALK*0000 
RJP*ICON 
ENTALK*0200 
RUP* ICON 
JPAUZ*ISOCONT] 
CMAL*N177777 
JPEQ*ISOCONTI 
ENTAU*ECL 


ENTAL*EC2 
STOP*40 


TUP*RECYCLE 
CL¥EC1 
CL¥EC2 


ENTALK*0001 
STRAL#*#INCREM 
ENTALK*0000 
RUP*ICON | 
ENTAL*CONTSIZE 
JPALZ*ISOCONT2 


ENTALK*0400 
RJP*ICON 


BASE TEST ADDRESS 

CHECK THE FIRST EIGHT WG CIRCUIT 
TEST ADDRESSES 

BASE TEST ADDRESS 

CHECK THE REMAINING EIGHT wG 


CIRCUIT TEST ADDRESSES~ 
IF NONE OF THE 16 WG TEST 
ADDRESSES FAIL+ GO TEST THE 
wO CIRCUITS. | 
IF ALL OF TEST ADDRESSES FAIL 
GO TEST THE WG CIRCYITS 
BOOTSTRAP. 


THIS ERROR STOP IS THE RESULT 
OF A WG OR SC CIRCUIT FAILURE 
IN CONTROL MEMORY. 

RECYCLE THE MEMORY TEST. 

INITIATE EC1 ERROR FLAG. 

INITIATE EC2 ERROR FLAG~ 


SET THE TEST ADDRESS INCREMENT 
TO 0001 | 

BASE TEST ADDRESS- 

CHECK THE FIRST EIGHT WD CIRCUIT 
TEST ADDRESSES. 

ARE THERE 256 WORDS OF CONTROL 
MEMORY? 

NOe GO TO ISOCONT2. 


YESe BASE TEST ADDRESS. 


CHECK THE REMAINING EIGHT wD 


PAGE 


ADDRESS 


03360 
03561 


03362 
03363 
03364 
03365 
03366 


033567 


03370 
03371 


03372 
03373 
03374 


03375 
03376 
03377 
03400 
03401 
03402 


03403 
03404 


70 
76 


70 
76 
60 
02 
61 


10 
12 


0080 


INSTRUCT 


0090 


~—3460 


0200 
3460 


3373 


4432 
3373 


4234 
4235 


5056 40 


55 
&Q 
40 


70 
ren 
70 
76 
12 
61 


70 
76 


G275 
4234 
4235 


o0nt 
4252 
0n00 
3460 
4227 
3u14 


0400 
34A0 


GLI-¥ 


SEQNO 


004%617 
004620 
004621 
004622 
004623 


004624 
004625 
004626 
004627 
004630 
004631 
004632 
004633 


004634 
004635 
004636 
004637 
004640 
004641 
004642 


004643 
004644 
OO4645 
004646 
CO4G47 
004650 
004651 
004652 


004653 
004654 


* 


%* HHH & 


* 


* 


LABEL 


ISOCONTe2 
*« 


STATEMENT 


JPAUZ*¥ISOCONTY 


CMAL*N177777 
JPEQ*ISOCONTS 


ENTAU*EC1L 
ENTAL*EC2 
STOP*40 


IJP*RECYCLE 


JPAUZ*ISOCONT3 
ENTAL*ECL 
CMAL¥*N000377 
UPEQ*ISOCONT3 


ENTAU*ECI 


' ENTAL*¥EC2 


STOP*4O 


CIRCUIT TEST ADDRESSES. 

IF NONE OF THE TEST ADDRESSES 
FAIL*® GO TEST THE CONTROL 
MEMORY SENSE AMPLIFIERS AND 
DIGIT DRIVERS. 


IF ALL OF THE TEST ADDRESSES 
FAIL GO TEST CONTROL MEMORY 
SENSE AMPLIFIER AND DIGIT 
DRIVERS. 

BOOTSTRAP. 


THIS ERROR STOP IS FOR THE 256 


WORD CONTROL MEMORY ONLY- 
THE STOP IS THE RESULT OF A 
wD OR SC CIRCUIT FAILURE IN 
THE CONTROL MEMORY. 

RECYCLE THE MEMORY TEST. 


ISOCONT2 AND ISOCONT3 ARE USED FOR 


THE 128 wORD CONTROL MEMORY. 
IF NO WG TEST ADDRESSES FAILED 


GO TO ISOCONT3- 


IF ALL WG TEST ANDRESSES FAILED 


GO TO ISOCONTS. 
BOOTSTRAP. 


PAGE 


ADDRESS 


03405 


03406 
03407 


03410 
03411 
03412 


03413 


03414 


03415 
03416 
03417 


03420 


03421 
03422 


0081 
INSTRUCT 
60 3430 
02 4432 
61 3430 
10 4234 
12 4235 
5056 40 
55 4275 
60 3424 
12 4234 
02 44N6 
61 3424 
10 4234 
12 4235 
5056 40 


9LI-P 


SEQNO 


004655 
004656 
004657 
004660 
004661 


004662 
004665 
004664 
004665 
004666 
OU4667 
004670 
004671 


004672 
004675 
004674 
004675 
004676 
004677 
004700 
004701 


004702 
004703 
004704 
008705 


004706 
V04707 
004710 


004711 
004712 


eee He HF 


ISOCONTS 
* 


* 


* 


* eee 


LABEL 


ISOCONTY 


STATEMENT 


TUP*#RECYCLE 
— RUP*SPCONT 


JPAUZ*ISOCONTY 


STOP#*4Q 


IUP*RECYCLE 
CL¥ECY 


CL*EC2 


ENTALK*S 
STRAL*LOOPCOUNT 


ENTALK*0200 
STRAL*INCREM 


ENTAU*N777777 
STRAU*TESTPATTN 


~ RUP*ICON 


ENTAU*NO00000 


THIS ERROR STOP IS FOR THE 128 
WORD MEMORY ONLYe 


THIS ERROR STOP IS THE RESULT 


OF A WD OR SC CIRCUIT FAILURE 
IN CONTROL MEMORY. 


RECYCLE THE MEMORY TEST. 


- CHECK DIODES ON PIN 14 OF 10wD00 


THROUGH 10wD03. 

IF NO DIODES FAIL GO TEST THE 
CONTROL MEMORY SENSE AMPLIFIERS 
AND DIGIT DRIVERS. 


IF AU EQUALS 000017 REPLACE 


BJ22C (00SCOB» d» 
3621.6 
OTHERWISE? REPLACE 8J250 
(10WD00 = 10W903)+ CARD TYPE 
3680-6. 
RECYCLE THE MEMORY TEST. 
INITIATE THE EC1 ERROR FLAGe 
INITIATE THE EC2 ERROR FLAGe 


CARD TYPE 


SET UP ICON LOOP COUNT 
FOR TESTING SENSE AvPsS AND 
DIGIT DRIVERS. 

SET THE TEST ADDRESS INCREMENT TO 
000200. 

USE A 777777 PATTERN. 


TEST FOR BITS DROPPED. 


PAGE 


ADDRESS 


03423 
03424 


03425 


03426 


03427 
03430 
034351 


03432 
03433 


03454 


03435 
03436 
03437 


03440 
03441 


One 
INSTRUCT 
55 4275 
76 3536 
60 3430 
5056 40 
55 4275 
GO 4234 
40 4235 
70 O0On3 
44 4256 
70 0200 
Gu“_iéiséiMw HO 
10 4435 
4G 4303 
76 3460 
190 4&366§ 


LLI-¥ 


SEQNO 


004713 
004714 
004715 
004716 
004717 


004720 
004721 
004722 
004723 
004724 
004725 
004726 
004727 


004730 
004731 
004732 
004733 
004734 
004735 
004%7356 
004737 


004740 
OO474I 
004742 
004743 


OO4744 
OO4K745 
004746 


004747 
004750 


eee 


ak 


ISOCONTS 


* 


LABEL 


STATEMENT 


STRAU*TESTPATIN 
RJP*ICON 
ENTAL*CONTSIZE 


JPALZ*ISOCONTS 
ENTAU*EC) 


ENTAL*#FAILPTIN 
STOP*4&0 


TUP*RECYCLE 
ENTAL*ECL 
SLCL*N000314 


LSHA*22 
ENTAL*FAILPTTN 


STOP *40 


IUP*RECYCLE 


USE A 000000 PATTERN. 

TEST FOR BITS PICKED uP. 

ARE THERE 256 WORDS OF CONTROL 
MEMORY. — 

NO*e GO TO ISOCONTS. 


YESe 


THIS ERROR STOP IS FOR A CONTROL 
MEMORY SENSE AMP OR DIGIT 
DRIVER FAILURE FOR 256 WORDS 
AU CONTAINS A FAIL INDICATING 

THE HALF PLANES FAILING AND AL 


CONTAINS THE FAILING PATTERN. 

RECYCLE THE MEMORY TEST. 

CLEAR ERROR BITS REPRESENTING 
THE NONEXISTENT HALF PLANES OF 
CONTROL MEMORY (400-477 AND 
600-677). 


FAILING PATTERN TO. ALe 

THIS ERROR STOP IS THE RESULT 
OF A CONTROL “EMORY SENSE AMP,» 
DIGIT DRIVER» 


RECYCLE THE MEMORY TEST. 


THE ICON SUBROUTINE TESTS EIGHT ADDRESSES SPECIFIED BY 


THE ISOCONT ROUTINE} 


TwO ERROR ERROR FLAGS. 


THE TEST RESULTS ARE RECORDED IN 


OR TIMING FAILURE. 


PAGE 


ADDRESS 


03442 
03443 
03444 


03445 


O3446 
03447 
03450 


03451 
03452 
03453 


03454 
03455 
03456 


03457 


0083 
INSTRUCT 
G6 4303 
76 3460 
12 42297 
61 34502 
10 4234 
12 4246 
5056 40 
55 4275 
12 4234 
52 4404 
5047 22 
12 4246 
5056 40 
55 4275 





8LI-¥ 


SEQNO 


OO4751 
004752 
004753 
004754 
004755 


004756 
004757 
004760 
004761 
004762 
004763 
004764 
004765 


004766 
004767 
004770 
004771 
004772 
004773 
0048774 
004775 


004776 
004777 
005000 
005001 
005002 
005003 
005004 
005005 


005006 
005007 


LABEL 


ICON 


ICQN1 


ICQN2 
ICONS 


ICON4G 


STATEMENT 


0 
STRADR*ICON? 


STRADR*ICONS 


STRADR*ICONG 


ENTAL*LOOPCOUNT 
STRAL*LOOPL 
STRAL*LOOP2 
ENTAU*ECI 
LSHAU*1L 


ENTAL*TESTPATTN 
ENTSR¥*10 
STRAL*0 

ENTAL*0 
ENTSR*00 
CMAL*TESTPATITN 


JPEQ*ICONG 


STRAL*FAILPTITN 
LSHA*22 
SLSET*BITOO 
LSHA*22 
ENTAL*ICON2 
ADDAL*INCRE™M 


STRADR*¥ICON? 
STRADR*ICONS 


PRESTORE THE wRITE IN TEST 
ADDRESS INSTRUCTION. 
PRESTORE THE FIRST READ FROM 


TEST ADDRESS INSTRUCTION. 


 PRESTORE THE SECOND READ FROM 


TEST ADDRESS INSTRUCTION. 


SET UP LOOP 1 COUNT. 

SET UP LOOP 2 COUNT. 

TEST 1 ERROR FLAG 

PREPARE EC1 ERROR FLAG FOR THE 


RESULTS OF THE NEXT TEST 
ADORESS- 
TEST PATTERN. 
SEE NOTE 1 IN APPENDIX Ac 
WRITE INTO THE TEST ADDRESS» 
READ FROM THE TEST ADDRESS.» 
SEE NOTE 2@ IN APPENDIX Ae 
DID THE TEST ADDRESS FAIL? 


NOe LEAVE THE CORRESPONDING 
ERROR BIT CLEAR. 


YES» SAVE THE FAILING PATTERN» 


AND SET THE CORRESPONDING 
ERROR BITe 


MODIFY TEST ADDRESS INSTRUCTIONS 


IN LOOP 1 TO REFERENCE THE 
THE NEXT TEST ADDRESS. 


PAGE 


ADDRESS 


03460 
O3461 


03462 


—603463 


03464 
03465 
03466 
03467 
03470 


03471 
03472 
03473 
03474 
03475 
03476 


03477 


03500 
03501 
03502 
03503 
03504 
03505 


03506 
03507 


0084 
INSTRUCT 
000090 
74 3473 
74 3474 
74 3516 
12 4256 
U4 4953 
44 4254 
10 4234 
5045 ol 
12 4303 
5073 10 
44 Oano 
12 on00 
5073 0 
02 4303 
61 3504 
U4 4OuG 
5047 22 
51 4307 
50u7 22 
12 3u73 
14 4252 
74 3u73 
74 374 


6LI-% 


SEQNO 


Y05010 
005011 
005012 
005013 
005014 


005015 
005016 
005017 
005020 
005021 
005022 
005023 
005024 


005025 
005026 
005027 
005030 
005031 
005032 
005035 
005034 


005035 
005036 
005037 
005040 
005041 
00504e 
005043 
005044 


005045 
005046 


LAB 


ICONS 
x 


* 


ICON6 


ICON7 


% 


EL STATEMENT 


ISK*LOOPI 


JP*ICONI 
STRAU*ECL 
ENTAU*EC2 


LSHAU*1 


ENTSR*10 
ENTAL*0 
ENTSR*00 
CMAL*TESTPATTN 


JPEQ*ICON7 


LSHA*22 
SLSET*BITOO 
LSHA*22 
ENTAL*ICONG6 
ADDAL*INCREM 
STRADR*¥ICONG6 


ISK*LOO0P2 


JP*ICONS 
STRAU*EC? 
ENTAU*EC1 
ENTAL*EC2] 
IJUP*ICON 


HAVE EIGHT ADDRESSES BEEN 
TESTED? 

NOe TEST THE NEXT ADDRESS. 

YESe SAVE THE ECI1 ERROR FLAG 


_ TEST 2 ERROR FLAG 


PREPARE EC2 FRROR FLAG FOR THE 
RESULTS OF THE NEXT TEST 
ADDRESS. 

SEE NOTE 1 IN APPENDIX Ae 

READ FROM THE TEST ADDRESS- 

SEE NOTE 2 IN APPENDIX Ae 

DOES THE TEST ADDRESS FAIL ON 
THIS SECOND READ? 


NOs LEAVE THE CORRESPONDING 
ERROR BIT CLEAR. 


YES*e SET THE CORRESPONDING 
ERROR BITe 

MODIFY THE TEST ADDRESS 
INSTRUCTION IN LOOP 2 TQ 

REFERENCE THE NEXT TEST 


ADDRESS. 
HAVE EIGHT ADDRESSES BEEN 
TESTED? 
NOre TEST THE NEXT ADDRESS. 
YES» SAVE THE EC2 ERROR FLAG. 


EXIT THE ICON SUBROUTINE. 


SPCONT IS USED TO CHECK CONTROL MEMORY ADDRESS 


PAGE 


ADDRESS 


03510 


03511 
03512 
03513 


03514 


03515 
03516 
03517 
03520 


03521 


03522 
03523 
03524 
03525 
03526 
03527 


03550 


03531 
03552 
03553 
03534 
03535 


OOR5 


INSTRUCT 


57 4253 


34 3470 
46 4234 
10 4235 


9045 1 


5073 10 
12 o00n0 
5073 90 
02 4393 


61 3525 


5047 22 
51 4307 
5047 22 
12 3516 
14 4252 
74H 3516 


57 4254 


34 3514 
46 425 
10 4234 
12 4235 
55 3460 


O8 T-F 


SEQNO 


005047 
005050 
005051 
005052 
005055 


005054 
0059055 
005056 
005057 
005060 
005061 
005062 
0050635 


005064 


005065 
005066 
005067 
005070 
005071 
005072 
005075 


005074 
005075 
005076 
005077 
005100 
005101 
005102 
005103 


005104 
005105 


LABEL 


STATEMENT 


* TRANSLATION CIRCUITRY NOT CHECKED BY ICON FOR 128 WORDS. 


* 
SPCUNT 


* 


0 
ENTSR*10 
CL*0200 


CL*0202 
CL*0204 
CL*0206 
ENTALK*7777 
STRAL*0600 
STRAL*0602 
STRAL*0604 
STRAL*0606 


ENTALK*0000 
ENTAU*0200 
JPAUZ*LOKt2 
ADDALK*0001 
ENTAU*0202 
JPAUZ*FLOK+2 
ADDALK*0002 
ENTAU*0204 


JPAUZ*LOK+2 
ADDALK*9004 


ENTAU*0206 


JPAUZ*FLOKt2 


ADDALK*0010 


ENTSR*00 
LSHA*22 
ENTALK*0000 


IJP*SPCONT 


SEE NOTE 1 IN APPENDIX Aco 


WRITE 777777 INTO ADDRESSES 
600» 6022 604% AND 60664 


INITIATE ERROR FLAGe 
IF ADDRESS 200 wAS WRITTEN INTO 
BY MISTAKE 
SET BIT 00 IN THE ERROR FLAG. 
IF ADDRESS 202 WAS WRITTEN INTO 
BY MISTAKE 
SET BIT O1 IN THE ERROR FLAGe 
IF ADDRESS 204 WAS WRITTEN INTO 


BY MISTAKE 
SET BIT 02 IN THE ERROR FLAG 
IF ADDRESS 206 WAS WRITTEN INTO 
BY MISTAKE ss | 
SET BIT 03 IN THE ERROR FLAGe 
SEE NOTE 2 IN APPENDIX As 
ERROR FLAG TO AU. 
CLEAR AL. 


EXIT THE SPCONT SUBROUTINE. 


PAGE 


ADDRESS 


03536 
03537 
0354n 


03541 
03542 
03543 
03544 
03545 
03546 
03547 
03550 


03551 
03552 
03553 
03554 
03555 
03556 
03557 
0356n 


03561 
03562 
03563 
03564 
03565 
03566 
03567 
03579 


03571 


0n86 
INSTRUCT 
000000 
5073 10 
40 02N0 
40 0202 
40 0204 
40 0206 
70 7777 
44 0600 
44 0602 
44 0604 
44 06N6 
70 0000 
10 0200 
60 3555 
71 0001 
10 0202 
60 3560 
71 0002 
10 0204 
60 3563 
71 0004 
10 0206 
60 3566 
71 9010 
5073 90 
5047 22 
70 onno 
55 3536 


I8 I~ 


SEQNO 


005106 
005107 
005110 
005111 
005112 


OOS112 
005114 
005115 
005116 
005117 
005120 
005121 
005122 


005123 
005124 
005125 
005126 
005127 
005130 
005131 


005132 


005135 
005134 
005135 
005136 
005137 
005140 
005141 
005142 


005145 
005144 


LABEL 


* 
* 


BOOT 


* 


+t eH & 


% & 


STATEMENT 


Q*0 
ENTALK*1 


STRADR*TRANBOOT2?] 
STRADR*TRANBOOTY 
ENTALK*7 
STRAL*LOOPCOUNT 


ENTAL*N777777 
STRAL*EB 
ENTALK*0500 


RJP* TRANBOOT 
ENTALK*0510 
RJP*TRANBOOT 
ENTALK*0520 
RJP*TRANBOOT 


JPAUZ*B00T1 


STOP*K&O 


THE BOOT SUBROUTINE TESTS THE BOOTSTRAP ADDRESS 
TRANSLATION AND SENSE AMPLIFIERS. 


TEST ADDRESS INCREMENT 


SET UP THE TRANROOT SUBROUTINE 
FOR TESTING FOR AN OPEN OR 
SHORTED TRANSISTOR ON A 
BOOTSTRAP GROUP SELECTION 
CARD. 

INITIATE THE ERROR FLAG~ 


BASE TEST ADDRESS 500. 


TEST ADDRESSES 500 - 507 

BASE TEST ADDRESS 510. 

TEST ADDRESSES 510 = 517. 

BASE TEST ADDRESS 520. 

TEST ADDRESSES 520 = 527. 

IS ANY BOOT STRAP GROUP SELECTION 
TRANSISTOR OPEN OR SHORTED? 

NOe GO TEST THE BOOTSTRAP DIODE 


SELECTION CARD FOR AN OPEN OR. 
SHORTED TRANSISTOR. 

COME TO AN ERROR STOP WITH THE 
ERROR FLAG DISPLAYED IN AU AND 
AL. CLEARED. 

THIS ERROR STOP IS FOR AN OPEN OR 
SHORTED TRANSISTOR ON A 
BOOTSTRAP GROUP SELECTION 


TRANSLATION CARD. 
FOR AN INTERPRETATION OF THE 


PAGE 


ADDRESS 


03572 
03573 


03574 
03575 
03576 
03577 


03600 
03601 
03602 


03603 
03604 
03605 
03606 
03607 


03610 


03611 


0037 
INSTRUCT 
00 Onn0 
70 Onn 
7H 3745 
74 3763 
70 00n7 
GQ &OaS6 
12 4435 
44 4233 
70 0500 
76 3730 
70 0510 
76 3730 
70 0520 
76 3730 
60 3613 
5056 40 


C8 I-F 


SEQNO 


005145 
005146 
005147 
005150 
005151 


005152 
005153 
005154 
005155 
005156 
005157 
005160 
005161 


005162 
005165 
005164 
005165 
005166 
005167 


005170 


005171 


005172 
005173 
005174 
005175 
005176 
005177 
005200 
005201 


005202 
005203 


LABEL 


BOOT1 


STATEMENT 


TUP*RECYCLE 
ENTALK*10 
STRADR*TRANBOOT2] 


STRADR*TRANBOOTY 
ENTALK*S | 
STRAL*LOOPCOUNT 


ENTAL¥N?777777 
STRAL*EB 


ENTALK*0500 
RUP*TRANBOOT 


ENTALK*0501 
RJP*TRANBOOT 


ENTALK*050e 
RJP*TRANBOOT 


ENTALK*0505 
RJP*TRANBOOT 


JPAUZ*B00T2 


STOP #40 


ERROR FLAGe SEE NOTE 3 OF 
APPENDIX Ae 

RECYCLE THE MEMORY TEST. 

TEST ADDRESS INCREMENT. 

SET UP THE TRANSOOT SUBROUTINE 


FOR TESTING FOR AN OPEN OR 
SHORTED TRANSISTOR ON A 
BOOTSTRAP DIODE SELECTIO 
CARDe | 
INITIATE THE ERROR FLAGe 


BASE TEST ADDRESS 500. | 
TEST ADDRESSES 500° 510° 520 AND 


930 

BASE TEST ADDRESS 501. 7 

TEST ADDRESSES 50i¢ 511+ 521 AND 
9351-6 

BASE TEST ADDRESS 502. 

TEST ADDRESSES 502+ 512» 522 AND 
9326 

BASE TEST ADDRESS 505. 


TEST ADDRESSES 503° 513° 523 AND 
5336 

IS ANY BOOTSTRAP DIODE SELECTION 
TRANSISTOR OPEN OR SHORTED? | 

NOe GO TEST THE BOOTSTRAP GROUP 
SELECTION CARDS FOR AN OPEN 
INPUT DIODE. 

YESe COME TO AN ERROR STOP WITH 


THE ERROR FLAG DISPLAYED IN 
AU AND AL CLEARED. 


PAGE 


ADDRESS 


03612 
03613 
03614 


03615 


03616 


03617 
03620 
03621 


03622 
03623 


03624 
03625 


03626 
03627 


03650 


036351 


03632 


03653 


0088 


INSTRUCT 


55 
70 
74 


74 
70 
44 
12 
uy 


70 
76 


70 
76 


70 
76 


70 
76 


60 


4O7S 
0010 
3745 


3763 
00N3 
4256 
Gu35 
4233 


0500 
3730 


0501 
3730 


0502 
3730 


0593 
3730 


3635 


5056 40 


Es i-F 


SEQNO 


005204 
005205 
005206 
005207 
005210 


005213 
005212 
U05213 
v05214 
005215 
005216 
005217 
005220 


005221 
005222 
005223 
005224 
005225 
005226 
005227 
005230 


v05231 
005232 
005235 
005234 
0052355 
005236 
005237 
005240 


005241 
005242 


LABEL 


* ete 


% & 


BOOT2 


STATEMENT 


TUP*RECYCLE 
ENTALK*1 
STRADR*DIOBO0T? 
STRADR*DIOBOOTS 
ENTALK*6 
STRAL*LOOPCOUNT 


ENTAL*N777777 
STRAL*EB 
ENTALK*0500 
RJP*OIOBOOT 
ENTALK*0510 
RJP*OIOBOOT 
ENTALK*0520 
RUP*DIOBOOT 


JPAUZ*B00T3 


STOP*4Q 


THIS ERROR STOP IS FOR AN OPEN 
OR SHORTED TRANSISTOR ON A 
BOOTSTRAP DIODE SELECTION 
TRANSLATION CARDe 

FOR AN INTERPRETATION OF THE 


ERROR FLAGse SEE NOTE 4 IN 
APPENDIX A. 

RECYCLE THE MEMORY TEST. 

TEST ADDRESS INCREMENT. 

SET UP THE DIOBNOT SUBROUTINE 
FOR TESTING FOR AN OPEN INPUT 
DIODE ON A BOOTSTRAP GROUP 
SELECTION CARD. 


INITIATE THE ERROR FLAG. 


BASE TEST ADDRESS 500. 
TEST ADDRESSES 500 — 507+ 
BASE TEST ADDRESS 510. 
TEST ADDRESSES 510 - 517. 
BASE TEST ADDRESS 520. 
TEST ADDRESSES 520 - 527- 


IS THERE AN OPEN INPUT DIODE ON 
ANY BOOTSTRAP GROUP SELECTION 
TRANSLATION CARD? 

NOe GO TEST THE BOOTSTRAP DIODE 
SELECTION CARDS FOR AN OPEN 
INPUT DIODE. 

YES* COME TO AN ERROR STOP WITH 
THE ERROR FLAS DISPLAYED IN AU 


AND AL CLEARED. 
THIS ERROR STOP IS FOR AN OPEN 


PAGE 


ADDRESS 


036354 
036355 
03656 
036357 
03640 
03641 


03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 


03652 


03653 


0039 


INSTRUCT 


60 


4275 
0001 
4020 
GO47 
OnNN6 
4256 


4435 
4233 
0500 
3774 
0510 
3774 
0520 
3774 


3655 


5056 40 


V8I-P 


SEQNO 


005243 
005244 
005245 
005246 
005247 


005250 
005251 
005252 
005253 
005254 
005255 
005256 
005257 


005260 
005261 
005262 
0052635 
005264 
005265 
005266 
005267 


005270 
005271 
005272 
005275 
005274 
005275 
005276 
005277 


005300 
005301 


LABEL 


* HHH 


BOOTS 


* ee 


STATEMENT 


IUP*RECYCLE 


ENTALK*10 | 
STRADR*DIOBOOT? 
STRADR*DIOBOOTS 
ENTALK*2 
STRAL*LOOPCOUNT 
ENTAL*N777777 
STRAL*EB 


ENTALK*0500 
RJP*DIOBOOT 


ENTALK*0501 
RJP*DIOBOOT 


ENTALK*0502 
RJP*DIOBOOT 
ENTALK*0505 
RUP*DIOBOOT 


JPAUZ*BOOT4S 


STOP*40 


INPUT DIODE ON A BOOTSTRAP 


- GROUP SELECTION CARD. 


FOR AN INTERPRETATION OF THE 


ERROR FLAG» 
APPENDIX A- 


RECYCLE THE MEMORY TEST. 
TEST ADDRESS INCREMENTe 


SFE NOTE 3 IN 


SET UP THE DIOBOOT SUBROUTINE 
FOR TESTING FOR AN OPEN INPUT 
DIODE ON A BOOTSTRAP DIODE 


SELECTION CARO. 
INITIATE THE ERROR FLAG. 


BASE TEST ADDRESS 500. 

TEST ADDRESSES S000 510» 
5306 

BASE TEST ADDRESS 501. 

TEST ADDRESSES 501° Sil, 
5316 

BASE TEST ADDRESS 502. 

TEST ADDRESSES 502? Si2e 


5326 
BASE TEST ADDRESS 503, 


520 AND 


521 AND 


522 AND 


TEST ADDRESSES 503" 513° 523 AND 


9353-6 


IS THERE AN OPEN INPUT DIODE ON 
ANY BOOTSTRAP DIODE SELECTION 


TRANSLATION CARD. 


NO* GO TEST THE BOOTSTRAP SENSE 


AMPLIFIERS. 


STOP WITH THE ERROR FLAG 


PAGE 


ADDRESS 


03654 


03655 


03656 
03657 
03660 
03661 
03662 
03663 


03664 
03665 


03666 
03667 


03670 
03671 


03672 
03673 


03674 


03675 


0n90 
INSTRUCT 
55 4275 
70 =0010 
74 4920 
74 4047 
70. 0002 
4G 4256 
12 4435 
G&G 4233 
70 «60500 
76 3774 
70 «60501 
76 3774 
70 «©0502 
76 3774 
70 0593 
76 «3774 
60 3677 
2056 40 


S8I-?F 


SEQNO 


005302 
005305 
005304 


005305 


005306 


005307 
005310 
005311 
005312 
005313 
005314 
005315 
005316 


005317 
005320 
005321 
005322 
0053525 
005324 
005325 
005326 


005327 
005330 
005351 
00533e 
005333 
005334 
005335 
005336 


005337 
005340 


LABEL 


* t+F HH 


* & 


BOOTY 
* 


* 


BOOTS 


% 


BOOT6 


STATEMENT 


TUP*RECYCLE 
RJP*BOOTDROP 


CPAL*0 
JPALZ*BO0TS 
ENTAU* TEMPORARY 


ENTAL*NOO0Q000 
STOP*40 


IUP*RECYCLE 
RJP*BOOTPICK 


JPALZ*BO0T6. 
ENTAU*TEMPORARY 


ENTAL*NO00000 
STOP*40 


— [UP#RECYCLE 


ENTICR#1l 


DISPLAYED IN AUe 

THIS ERROR STOP IS FOR AN OPEN 
INPUT DIODE ON A BOOTSTRAP 
DIODE SELECTION CARD. 

FOR AN INTERPRETATION OF THE 


ERROR FLAGe SEE NOTE 4 IN 
APPENDIX A. 

RECYCLE THE MEMORY TEST. 

IS A SINGLE BIT DROPPED IN ALL 
OF BOOTSTRAP MEMORY? 


NO» GO CHECK FOR BITS PICKED UP. 
YESe ENTER AU WITH THE FAILING 


PATTERN AND CLEAR ALe 


THIS ERROR STOP IS FOR A SINGLE 
BIT POSITION BEING DROPPED FOR 
FOR ALL OF BOOTSTRAP. 

RECYCLE THE MEMORY TEST. 

IS A SINGLE BIT PICKED UP IN ALL 

OF S800TSTRAP MEMORY? 


NO»« GO TEST FOR OPEN BOOTSTRAP 
MATRIX DIODES. 

YES* ENTER AU WITH THE FAILING 
PATTERN AND CLEAR ALe 


THIS ERROR STOP IS FOR A SINGLE 
BIT POSITION BEING PICKED UP 
IN ALL OF BOOTSTRAP MEMORY. 


RECYCLE THE MEMORY TEST. 
ACTIVATE Ble 


PAGE 


ADDRESS 


03676 
03677 


03700 
03701 
03702 


03703 
03704 


03705 
03706 


03707 
03710 


03711 
03712 


03713 
03714 


0091 


INSTRUCT 


55 
76 


5061 


61 
10 


12 


GOT7S 
4062 

00 
3706 
4301 


4366 


5056 40 


55 
76 
61 


10 
12 


“O75 
G11 
S714 


4301 
4366 


5056 40 


55 4275 


5072 


1 


98 I-P 


SEQNO 


005341 
005342 
005345 
005344 
005345 


005346 
005347 
005350 
005351 
00535e 
005355 
005354 
005355 


005356 
005357 
005360 
005361 
005362 
0053635 
005364 
005365 


005366 
005367 
005370 
005371 
005372 
005375 
005374 
005375 


005376 
005377 


LAB 


BOOT? 


BOOTS 


*% 


qt et ee He H 


RANB 


EL STATEMENT 


ENTBK*500 
ENTSR¥*10 
ENTALB*0 
ENTAY*0001 
ENTSR*00 


JPALNZ*BO0TS8 
STOP*40 


IUP*RECYCLE 
BSK*NO00534 


JP*BOOT7 
TJUP*#po00T 


TEST THE BOOTSTRAP MATRIX DIODES 
FOR ADDRESSES 500 THROUGH 534. 

SEE NOTE 1 IN APPENDIX Ac 

READ UP THE CONTENTS OF THE 
CURRENT TEST ADDRESS. 


ENTER THE CURRENT TEST ADDRESS 
INTO AUe 

SEE NOTE 2 IN APPENDIX Ac 

DID THE TEST ADORESS FAIL. 

NOe TEST THE NEXT ADDRESS. 


THIS ERROR STOP IS FOR A FAILING 
BOOTSTRAP MATRIX DIOQDEe THE 


ADDRESS THE DIODE SERVES IS 
DISPLAYED IN AU. 

RECYCLE THE MEMORY TEST. 

HAVE ALL THE ADDRESSES BEEN - 
TESTED? 

NO» CHECK THE NEXT ADDRESS. 

YESe EXIT FROM THE BOOT 
SUBROUTINE. 


THE TRANBOOT SUBROUTINE IS USED TO TEST FOR OPEN OR 


CARDS. 


OOF O*0 


STRAL*BASEADR 


ENTAL*N777777 
STRAL* TEMPORARY 


SHORTED TRANSISTORS ON BOOTSTRAP ADDRESS TRANSLATION 


STORE THE BASE TEST ADDRESS FOR 
THIS REFERENCE OF TRANBOOT. 


INITIATE TEST RESULT STORAGE 


PAGE 


ADDRESS 


03715 
03716 
03717 
03720 
03721 


03722 
03723 


03724 
03725 


03726 
03727 


0373Nn 
03731 


03732 
03733 


0092 
INSTRUCT 
36 O5N0 
5073 10 
13 Onno 
10 Oo001 
9073 0 
63 3725 
5056 40 
55 4275 
56 44yil 
34 3716 
55 3572 
600 OnN00 
GQ 4A25 
12 44s5 
44 43N1 


L8T-P 


SEQNO 


005400 
005401 
005402 
005403 
005404 


005405 
005406 
005407 
005410 
005411 
005412 
0054135 
005414 


005415 
005416 
005417 
005420 
005421 
005422 
005423 
005424 


005425 
005426 
005427 
005430 
005431 
005432 
005433 
005434 


005435 
005436 


LABEL 


TRANBOOT1 


* 


TRANBOOT2 
* 


* 


+ & & 


He eH HHH He 


» 


STATEMENT 


ENTAL*LOOPCOUNT 


STRAL*LOOP1 
STRAL*LOOP2 
ENTB*BASEADR 
ENTSR*10 
ENTALB*0 
ENTSR*Q0 


SLCL*TEMPORARY 
STRAL* TEMPORARY 


ENTBKB*0 
ISK*LOOP1 


JP*TRANBOOT1 


SET UP LOOPCOUNTS FOR LOOP1 AND 
LoOP2. 

SET Bl TO THE BASE TEST ADDRESS. 

SEE NOTE 1 IN APPENDIX Ac 


READ UP THE CONTENTS OF THE TEST 
ADDRESS. 

SEE NOTE 2 IN APPENDIX Aco 

FORM THE BIT BY BIT LOGICAL - 
PRODUCT OF THE CONTENTS OF 
THE CURRENT TEST ADDRESS WITH 
THE LOGICAL PRODUCT OF THE 
PREVIOUS TEST ADDRESSES. 


INCREMENT B81 TO THE NEXT TEST 
ADDRESS 

HAVE ALL THE TEST ADDRESSES BEEN 
CHECKED. 

NO» TEST THE NEXT ADDRESS. 

YES» ANY BIY POSITION SET IN ALL 
OF THE TEST ADDRESSES WILL BE 
SET IN THE LOGICAL PRODUCT OF 


OF ALL THE TEST ADDRESSES 
(TEMPORARY). IF A TRANSISTOR 
IS SHORTEDse THE CONTENTS OF 
THE TEST ADDRESS SERVED BY THE 
THE TRANSISTOR wILL EQUAL THIS 
LOGICAL PRODUCT. IFA 
TRANSITOR IS PEN BOTH THIS 
LOGICAL PRODUCT (TEMPORARY) 


AND THE CONTENTS OF THE TEST 
ADDRESS SERVED BY THE OPEN 


PAGE 


ADDRESS 


03734 
03755 
03736 
03737 
03740 


03741 
03742 


03743 
03744 


03745 
03746 


03747 


0093 


INSTRUCT 


12 4256 
G4 4253 
GG 4254 
32 4225 
5073 10 


13 0000 
5073 00 


92 4301 
GQ 4301 


37 0000 
57 4253 


34 3740 


88I-P 


SEQNO 


005437 
005440 
005441 
005442 
005443 


005444 


005445 


0054465 
005447 
005450 
005451 
00545e 
0054535 


005454 
005455 
005456 
005457 
005460 
005461 
005462 
005465 


005464 
005465 


005466 
005467 
005470 
005471 
005472 


0054753 
005474 


of 
TRANBOOTS 


TRANBOOT4 
a 


* 


LABEL 


STATEMENT 


ENTR*BASEAOR 
ENTAU*NO00000 


LSHAU#*4 


ENTSR*10 
ENTALB*O 


ENTSR*00 
CMAL* TEMPORARY 
JPNOT*TRANBOOTS 


LSHA*22 
SLSET*BITOO 
LSHA*22 
ENTBKB*0 


ISK*L00P2 
JP*TRANBOOTS 
LSHA*22 


SLCL*EB 
STRAL*EB 


ENTAU*EB 
ENTAL*NO00000 


ITUP*TRANBOOT 


TRANSISTOR wILtL EQUAL 000000- 
SET B1 TO THE BASE TEST ADDRESS. 
INITIATE FLAG FOR RECORDING OPEN 

AND SHORTED TRANSISTORS. 
PREPARE ERROR FLAG FOR RECORDING 


THE RESULTS OF THE NEXT TEST 
ADDRESS (TRANSISTOR) « | 

SEE NOTE 1 IN APPENDIX Ac 

READ UP THE CONTENTS OF THE 
FIRST TEST ADDRESS- 

SEE NOTE 2 IN APPENDIX Ao 

DID THE TEST ADDRESS FAIL? 

NOe GO CHECK THE NEXT TEST 


ADDRESS « 


YESe SET THE CORRESPONDING BIT 
POSITION IN THE ERROR FLAGe 

INCREMENT 81 TO THE NEXT TEST 
ADDRESS. | 

HAVE ALL THE TEST ADDRESSES BEEN 
CHECKED? | 


NO» GO CHECK THE NEXT ADDRESS» 
YES*e COMBINE THE TEST RESULTS FOR 


THIS GROUP OF TEST ADDRESSES 
WITH THE COMBINED RESULTS OF 
THE PREVIOUS TEST ADDRESSES. 
ERROR FLAG EB TO AUe 
CLEAR AL. 


EXIT FROM THE TRSANBOOT 
SUBROUTINE. 


PAGE 


ADDRESS 


03750 
03751 


03752 


03753 
03754 


03755 
03756 
03757 


03760 
03761 
03762 
03763 


03764 


03765 
03766 
03767 
03770 


03771 
03772 


03773 


0n94 
INSTRUCT 
32 4025 
10 4366 
5045 01 
5073 10 
13 onno 
5073 90 
02 4301 
63 3763 
5047 22 
51 43n7 
5047 22 
37 0000 
57 4254 
34 3759 
5047 22 
52 4233 
G4 4933 
10 4233 
12 4366 
55 3730 


68 I-F 


SEQNO 


005475 
005476 
005477 
005500 
005501 


005502 
005503 
005504 
005505 
005506 
005507 
005510 
005511 


005512 
005515 
005514 
005515 
005516 
605517 
005520 
005521 


005522 
005523 
005524 
005525 
005526 
005527 
005530 
005531 


GO553e 
005535 


LABEL 


STATEMENT 


THE DIOBOOT SUBROUTINE IS USE TO TEST FOR OPEN DIODES 


IoBn00T 


DIOBOOT1 


0*0 | 
STRAL*BASEADR 


ENTAL*LOOPCOUNT 
STRAL*LOOPI — 
ENTICR*¥1 
ENTB*BASEADR 
CL¥EA1 

CL¥*EA2 


ENTAU*NOQ0000 
ENTAL*LOOPL 
STRAL*LOOP2 


ENTSR*10 
STRB*«0002 


ENTALB*0O 


ENTSR*00 
STRAL*SCRATCHI 


ENTAL*EA1 
LSHAL*1 
STRAL*EA1 
ENTICR¥e 


DIoBg00T2 ENTRKB*O 


x 

ak 

* ON BOOTSTRAP ADDRESS TRANSLATION CARDS. 
* 

D 


STORE THE BASE TEST ADDRESS FOR 
THIS REFERENCE OF DIOBOOT. 
SET UP THE LOOP 1 COUNT. 


ENTER Bl WITH THE BASE ADDRESS- 
CLEAR THE ERROR FLAG WORK AREAS 


INITIATE LOOP 2 TEMPORARY FLAGe 


INITIATE THE LOOP 2 COUNT AT THE 
CURRENT LOOP1 VALUE. 

SEE NOTE 1 IN APPENDIX Ae 

SET B2 TO THE TEST ADDRESS 
CURRENTLY HELD IN Ble 

READ UP THE CONTENTS OF THE 


LOOP 1 TEST ADDRESS. 

SEE NOTE 2@ IN APPENDIX Ao 

SAVE THE CONTENTS OF THE LOOP 1 
TEST ADDRESS» 

PREPARE THE LOOP1 ERROR FLAG FOR 
THE TEST RESULTS OF THE 
CURRENT LOOP1I TEST ADDRESS. 


INCREMENT B2 TO THE NEXT TEST 
ADDRESS « 


PAGE 


ADDRESS 


03774 
03775 


03776 
03777 
04000 
04001 
04002 
04003 


04004 
04005 
04006 


04007 
04010 


O4011 
04012 
04013 
04014 
04015 
04016 
04017 


04020 


0095 
INSTRUCT 
00 oono 
44 4225 
12 4956 
44 4253 
5072 01 
32 4925 
40 4931 
4O 4232 
10 4366 
12 4253 
G4 4254 
5073 10 
42 0002 
13 00n0 
5073 0 
4u4 4276 
12 4231 
5046 M1 
uh 4o31 
5072 02 
37 0n00 


O6I-P 


SEQNO 


005534 
005535 
005536 
005537 
005540 


005541 
005542 
005543 
005544 
005545 
005546 
005547 
005550 


005551 
005552 
005553 
005554 
005555 
005556 
005557 
005560 


005561 
005562 
005565 
005564 
005565 
005566 
005567 
005570 


005571 
005572 


LABEL 


* 


+e & & 


% 


DIQBOOTS 
* 


* 
* 


* 


STATEMENT 
ENTSR*10 
ENTALB*0 
ENTSR*00 
STRAL*SCRATCH2 


SLCL*SCRATCH1 


LSHAU*1 
CMAL*SCRATCH®2 


JPNOT*DIOBOOTS 
LSHA*22 
SLSET*BITOO 


LSHA*22 
CMAL*SCRATCHY 


-JPNoT*DIOBOOT4 


ENTAL*EA1 
SLSET*BITOO 


SEE NOTE 1 IN APPENDIX Ac 

READ UP THE CONTENTS OF THE 
LOOP1 TEST ADDRESS- 

SEE NOTE 2 IN APPENDIX Ae 

SAVE THE CONTENTS OF THE LOOP 2 


TEST ADDRESS- 


CLEAR OUT ANY BIT THAT IS NOT 


SET IN BOTH THE LOOP 1 TEST 
ADDRESS AND THE LOOP 2 TEST 
ADDRESS (LOGICAL PRODUCT) + 
PREPARE THE LOOP 2 INTERMEDIATE 
ERROR FLAG FOR THE TEST 
RESULTS OF THE CURRENT 


LOOP 2 TEST ADDRESS. 

WERE ALL THE BITS SET IN THE 
LOOP 2 TEST ADDRESS CONTENTS 
ALSO SET IN THE LOOP 1 TEST 
ADDRESS CONTENTS? | 

NO» GO CHECK THE LOOP 1 TEST 
ADDRESS - 

YES» SET THE BIT CORRESPONDING 


TO THE TEST ADDRESS IN THE 
LOOP 2 ERROR FLAG. 

WERE ALL THE BITS SET IN THE 
LOOP 1 TEST ADDRESS CONTENTS 
ALSO SET IN THE LOOP 2 TEST 
ADDRESS CONTENTS? 

NOr GO TEST THE NEXT ADDRESS 
PAIR. 


YES*e SET THE BIT CORRESPONDING 
TO THE TEST ADDRESS IN THE 


PAGE 


ADDRESS 


04021 
04022 


04023 
04024 


04025 


04026 


04027 


04030 
04031 
04032 


04033 
04034 


04035 


04036 
04037 


0096 
INSTRUCT 
2073 610 
13 «00N0 
5073 00 
GG UOT? 


52 4276 


5045 0901 


02 4277 


63 4034 


5047 22 


S1 4307 
5047 22 


02 4276 


63 4n4l1 


12 4es31 
51 43907 


T6[-% 


SEQNO 


005573 
005574 
005575 


005576 


005577 


005600 
005601 
v05602 
005603 
005604 
005605 
005606 
005607 


005610 
005611 
005612 
005613 
005614 
005615 
005616 
005617 


005620 
005621 
005622 
005623 
005624 


005625 
005626 


005627 
005630 


LABEL 


DIQBOOTY 
* 


2 
* 


DIOBOOTS 
* 


STATEMENT 


STRAL*EAI 
ISK*L00P2 


JP*DIOB00T2?! 


LSHA*22 


SLSET*EA2 
STRAL*EA2 


ENTICR*1 
ENTBKB*0 


ISK*LOOP1L 


JP*DI0OBO0T1 
ENTAL#*EA1 


LSHAL*1 


SLSET#*EA2] 


SLCL*EB 
STRAL*EB 


ENTAU*EB 


ENTAL*NOOQ000 
IUP*DIOBOOT 


+ DROPPED. 
x 


LOOP 1 ERROR FLAGe 

HAVE ALL THE LOOP 2 TEST 
ADDRESSES BEEN CHECKED AGAINST 
THE CURRENT LOOP 1 TEST 
ADDRESS? 


NOe CHECK THE NEXT LOOP 2 TEST 
ADDRESS 

YESe ACCUMULATE THE LOOP 2 TEST 
ADDRESS RESULTS. 


INCREMENT B1 TO THE NEXT LOOP 1 
TEST ADDRESS> 


HAVE ALL THE LOOP 1 TEST 
ADDRESSES BEEN CHECKED? 

NO» CHECK THE NEXT ADDRESS. 

ACCUMULATE THE OPEN DIODE ERROR 
FLAG RESULTS. 


COMBINE TEST RESULTS FOR THIS 
GROUP OF TESTS ADDRESSES 


WITH THE COMBINED RESULTS OF 
THE PREVIOUS GROUPS. 

ERROR FLAG EB TO AU. 

CLEAR AL 

EXIT FROM THE DIOBOOT SUBROUTINE. 


THE BOOTDROP SUBROUTINE TESTS FOR SINGLE BITS BEING 


PAGE 


ADDRESS 


04040 
04041 


0404 


04043 
04044 
04045 
04046 
04047 


04050 


04051 
04052 
04053 
04054 
04055 
04056 


04057 
04060 


04061 


0N97 


INSTRUCT 


44 421 
57 84254 


34 4N20 


5047 22 
51 4232 
GQ 4232 
5072 oO1 
37 0000 


S57 4253 


34 4ON4 
12 4231 
5046 1 
51 4232 
52 4233 
U4“ 4933 


10 4233 
12 4366 


§5 3774 


c6I-P 


SEQNO 


005631 


00563e 
005633 
005634 
005635 


005636 
005637 
005640 
005641 
005642 
005643 
005644 
005645 


005646 
005647 
005650 
005651 
005652 
005655 
005654 
005655 


005656 
005657 
005660 
005661 
005662 
005663 
005664 
005665 


005666 
005667 


LABEL STATEMENT 


BOOTDROP 9Q*0 
ENTALK*34 
STRAL*LOOPI 
CL*TEMPORARY 


ENTALK*0534 


STRADR*BOOTDROP2 ~ 


BOOTDROP1 ENTSR*10 
BOQTDROP2 ENTAL*0 © 
ss 
ENTSR¥*00 
SLSET* TEMPORARY 
STRAL*TEMPORARY 


ISK*BOOTDROP2 
ISK*LQOP1 


JP*BOOTDOROPI 
IJUP*BO0TDROP 


* 


PICKED up, 


Ore e 


OOTPICK 0*0 
ENTALK*34 
STRAL*LOOP1 


ENTAL*®N777777 


STRAL*TEMPORARY 
ENTALK*0534 


SET UP THE LOOP COUNT FOR 
ADDRESSES 500 = 534. 

CLEAR TEST PATTERN STORAGE 

PRESTORE THE INITIAL TEST 


ADDRESS. 

ACTIVATE SR TO BANK Oc. 

READ UP THE CONTENTS OF THE TEST 
ADDRESS 

DEACTIVATE SRe 

FORM THE LOGICAL OR (OF ONES) OF 
THE CURRENT TEST ADDRESS WITH 
THE LOGICAL OR OF ALL THE 


PREVIOUS TEST ADDRESSES. 

DECREMENT TO THE NEXT TEST 
ADDRESS. 

HAVE ALL THE TEST ADDRESSES REEN 
USED? 

NO» READ THE NEXT ADDRESS. 

YESe EXIT FROM THE BOOTDROP 
SUBROUTINE. 


THE BOOTPICK SUBROUTINE TESTS FOR A SINGLE BIT BEING 


SET UP THE LOOP COUNT FOR 
ADDRESSES 500 = 534. 
SET UP THE TEST PATTERN STORAGE. 


PRESTORE THE INITIAL TEST 


PAGE 


ADDRESS 


04062 
04063 
04064 
04065 
04066 


04067 
04070 
04071 


04072 
04073 
04074 


04675 
04076 


04077 
04100 


04101 
04102 
04103 
04104 


04105 
04106 


0098 


INSTRUCT 


00 
70 
44 
TH) 
70 


74 


5073 


12 


00N0 
0034 
4253 
4301 
0534 


O71 
10 
0000 


9073 00 


51 
mn 


57 
57 


34 
55 


00 
70 
Gy 
12 


44 
70 


4301 
G3al 


GQ71 
4253 


4070 
4062 


0000 
0034 
4253 
4435 


4301 
0534 


€61-F 


SEQNO 


005670 
005671 
005672 
005673 
005674 


005675 
005676 
V05677 
005700 
005701 
005702 
005705 
GO05704 


005705 
005706 
005707 
005710 
005711 
005712 
005715 
005714 


005715 
005716 
005717 
005720 
005721 
005722 
005725 
005724 


005725 
005726 


LABEL 


BOOTPICK2 
BOOTPICK2 


+ eee 


% 


a 
XSTACK 


STATEMENT 


STRADR*BOOTPICKe2 
ENTSR*10 
ENTAL*0 


ENTSR*00 


SLCL*¥ TEMPORARY 
STRAL*TEMPORARY 


ISK*BOOTPICK2 


ISK*LOOP1L 


JP*BOOTPICK1 
IUP*BOOTPICK 


0 


ENTAL*HNS 
CMAL*NO00010 


UPMLEQ@*XSTACK2 


ENTAU*NO07777 
ENTAL*NO000577 
RJP*SELECT 
ENTAL¥*ES1 
ENTBK*6 
CMALS*SNOFLTAK 


| JPEQ*XSTACKi 


YES. 


ADDRESS- 

ACTIVATE SR TO BANK 0 

READ UP THE CONTENTS OF THE 
FIRST ADDRESS. 

DEACTIVATE SRe 


FORM THE LOGICAL PRODUCT OF 
THE CURRENT BOOTSTRAP TEST 
ADDRESS WITH THE LOGICAL 
PRODUCT OF THE CONTENTS OF ALL 
THE PREVIOUS S800TSTRAP TEST 
ADDRESSESe« 

DECREMENT TO THE NEXT TEST 
ADDRESS e 


HAVE ALL THE TEST ADDRESSES BEEN 
USED? 

NO» READ THE NEXT ADDRESS. 

YES» EXIT FROM THE BOOTPICK 
SUBROUTINE. 


IS THE MEMORY one GREATER THAN 
32K ? 


GN TEST STACKS 10 THROUGH 
17. 

DOES THE 000577 PATTERN APPEAR 
TO BE STORED IN NONEXISTENT 
ADDRESS IN BANK 0 (MEMORY 
32K OR LESS) ? 


NO» CHECK STACKS 10 THROUGH 
17.6 


PAGE 


ADDRESS 


04107 
04110 
04111 
04112 


04113 
04114 


04115 


04116 


04117 
04120 


04121 
04122 
04123 


04124 


04125 
04126 
04127 
04150 
04131 
04152 


04133 


0099 


INSTRUCT 


7H SLL 
5073 10 
12 00090 


5073 00 


S52 430i 
4& 4301 


57 4111 


57 4253 


534 4110 
55 4101 


000090 
12 4250 
02 4373 


65 4151 


10 4423 
12 4413 
76 2455 
12 42460 
36 0096 
03 4337 


61 4136 


v6I-h 


SEQNO 


005727 
005730 
005731 
005732 
005733 


005734 
005735 
005736 
005737 
005740 
005741 
005742 
005743 


005744 
005745 
005746 
005747 
005750 
005751 
005752 
005755 


005754 
005755 
005756 
005757 
005760 
005761 
005762 
005765 


005764 
005765 


x 


LABEL 


XSTACK] 


XSTACK2 


ra 


XSTACK3 


XSTACKY 


STATEMENT 


BUP*LOK=~e 
JP*#XSTACKS 


ENTAU*N100000 
ENTAL*NO00577 


RJP*SELECT 
ENTAL*ES1 
ENTAU*N000377 


CMSK*N000377 
JPEQ*XSTACKY 


ENTAU*ES1 


ENTAL*ES2 
STOP *4Q 
IUP*RECYCLE 
ENTAU*N100000 
ENTAL*N000577 
RJUP*SELECT 


ENTBK*7 


ENTAL*ES1 
CMALB*SNOFLT36K 


— JPEQ*XSTACK4 


BUP*LOK=2 
ENTAU*ES1 
ENTAL*ES2 
STOP*40 


IJP*RECYCLE 
ITJP*XSTACK 


YESe GO TO ERROR STOP AND 
DISPLAY THE ERROR FLAGS. 

DOES THE 000577 PATTERN APPEAR 
TO BE STORED IN NONEXISTENT 


ADDRESSES IN BANK 1 (MEMORY 
LESS THAN 32K)? 

MASKS OUT THE MEMORY SIZE 
PORTION OF THE ERROR FLAGe 


NO- EXIT FROM THE XSTACK 
SUBROUTINE. 
YESe DISPLAY THE £S1 AND ES2 


ERROR FLAGS AND STOP. 


RECYCLE THE MEMORY TEST. 

DOES THE 000577 PATTERN APPEAR 
TO BE STORED IN NONEXISTENT 
ADDRESS IN BANK 1 (MEMORY 
GREATER THAN 32k)? 


NOe EXIT FROM THE XSTACK 
SUBROUTINE. 
YESe DISPLAY THE ES1 AND ES2 


ERROR FLAGS AND STOP. 


RECYCLE THE MEMORY TEST. 
EXIT FROM THE XSTACK SUBROUTINE. 


PAGE 


ADDRESS 


04154 
041355 


04136 
04137 


04140 
04141 
04142 


04143 
04144 


04145 


04146 
04147 
04150 
04151 
04152 
04153 


04154 


04155 
04156 
04157 


04160 
04161 
04162 
04163 


04164 
04165 


0100 


INSTRUCT 


73 
34 


10 
12 


76 
le 
10 


06 
61 


10 
12 


4132 
4161 


4426 
4413 
2455 
4240 
“UNG 


4406 
4165 


G240 


WO4l 


5056 40 


55 
10 
12 
76 


36 


12 
03 
61 


73 
10 
12 


5056 


55 
50 


4275 


~—Hh4 2G 


G4L3 
2455 


0007 


G2Ou0 
346 
4165 


4156 
G240 
Gut 

40 


G?P75 
4121 


S61“? 


SEQNO 


005766 
005767 
005770 
005771 
00577e 


005772 
005774 
005775 
005776 
005777 
006000 
006001 
006002 


006003 
006004 
006005 
006006 
006007 
006010 
006011 
006012 


006013 


006014 
006015 
006016 
006017 
006020 
006021 
006022 


006023 
006024 


LABEL 


SAVEADR 


2 
SAVEADRI 


* 
RESTORE 


RESTORE1 


STATEMENT 


0 

ENTICR*¥2 
ENTBK*5 
ENTICR*1 
ENTB*BASEADR 


ENTICR*1 
ENTSR*10 
ENTAUB*0 


ENTBKB*1000 
ENTSR¥*00 


ENTICR*2 
STRAUB*SAVEK 
BUP*SAVEADR1 


ENTICR*1 
IUP*#SAVEADR 


0 


ENTICR*¥1. | 
ENTB*BASEADR 


ENTICR*2 
ENTBK*5 
ENTSR*00 
ENTAUB*SAVEK 
ENTICR*¥1 


ENTSR*10 
STRAUB*O 


SET UP COUNT FOR SAVING FIVE 
TEST ADDRESSES. 


FORM THE FIRST TEST ADDRESS TO 
BE SAVED. 


SEE NOTE 1 IN APPENDIX Aco 

READ UP ORIGINAL CONTENTS OF 
TEST ADDRESS- 

INCREMENT B61 TO NEXT ADDRESS TO 
BE SAVED. 

SEE NOTE 2 IN APPENDIX Ac 


SAVE TEST ADDRESS CONTENTS- 

IF ANY ADDRESSES REMAIN TO BE 
SAVED» SAVE THE NEXT ADDRESS.» 

ACTIVATE Bi BEFORE EXITING 

EXIT FROM THE SAVEADR 
SUBROUTINE. 


FORM THE FIRST TEST ADDRESS TO 
BE RESTORED. 

SET UP COUNT FOR RESTORING FIVE 
TEST ADDRESSES. 

SEE NOTE 2 IN APPENDIX Ae 


SEE NOTE 1 IN ADPENDIX Aco 
RESTORE THE ORIGINAL CONTENTS OF 


PAGE 


ADDRESS 


04166 
04167 
04170 
04171 


—~08172 


04173 
04174 
04175 
04176 
04177 
04200 
04201 
04202 


04203 
04204 


04205 


04206 


04207 


04210 
04211 
04212 
04213 
04214 


04215 
04216 


0101 


INSTRUCT 


000000 
5072 02 
36 0005 
5072 Ol 
32 4225 


5072 1 
5073 10 
11 9000 


37 1000 
5073 00 


5072 02 
47 4265 
73 «4173 


5072 01 
55 4166 


000000 


5072 O1 
32 4225 


5072 2 
36 9005 
5073 0 
11 4265 
5072 O12 


59073 10 
47 09000 


961-7 


SEQNO 


006025 
006026 
006027 
006030 
006031 


006032 
006033 
006034 
006035 
006036 
006037 
006040 
006041 


00604e 
006043 
006044 
006045 
006046 


006047 


006050 
006051 


006052 
006055 
006054 
006055 
006056 
006057 
006060 
006061 


006062 
006065 


LABEL 


* ee * 


BASEADR 
BEGINNING 
CONTSIZE 
EA 

EAL 

EA2 

EB 

ECL 


EC2 
ENTA 

ES 

ES1 

ES2 
ESR10 
ESR11 
FATILADR 


FAILDIODE 
FAILPTTN 


oo oococao 


STATEMENT 


ENTSKB*1000 


ENTICR*2 


| BJUP*RESTOREL 


ENTICR*1 
ENTSR*00 © 
IUP*RESTORE 


0 
ENTAL*0 
0 | 


0 
G 
ENTSR*10 
ENTSR*11 
0 


0 
0 


THE TEST ADDRESS. 

INCREMENT 81 TO NEXT ADDRESS TO 
BE RESTORED. 

HAVE ALL THE TEST ADDRESS BEEN 
RESTORED? 


NO» RESTORE THE NEXT ADDRESS- 
DEACTIVATE SRe 


EXIT FROM THE RESTORE 
SUBROUTINE. 


SPECIAL PURPOSE CONSTANTS AND WORK AREAS. 


USED FOR PRESTORING ENTSR*10. 
USED FOR PRESTORING ENTSR*11. 


PAGE 


ADDRESS 


04217 


04220 


04221 
04222 
04223 
04224 


04225 
04226 
04227 
042350 
04231 
042352 
04233 
04254 


04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 


04245 
04246 


0102 


INSTRUCT 


37 inno 


5072 2 


73) =42l2 
5072 O12 
5073 900 
55 4205 


0000N0 
000000 
000000 
000000 
000000 
000000 
000000 
0000900 


000000 
12 00900 
000000 
000090 
000900 
5073 10 
5073 iil 
000000 


0000N0 
0009000 





L61-P 


SEQNO 


006064 
006065 
006066 
006067 
006070 


006071 
006072 
006075 
006074 
006075 
006076 
006077 
006100 


006101 
006102 
006103 
006104 
006105 
006106 
006107 
006110 


006111 
006112 
006113 
006114 
006115 
006116 
006117 
006120 


006121 
006122 


LABEL 


FAILTEST 


HNS 
* 


HNSX 
otk 


INCREM 
LOOP 
LOOP2 
LOOPS 


LOQPCOUNT 
LOWEXEC 
LOwLIMIT 
PARTTYMSK 


PARITYEVN 
PARITYODO 
* 


PROGSIZE 
fe 


x 
SAVEK 
aE 


RECYCLE 
SCRATCHL 
SCRATCH2 


STRA 


TEMPORARY 
TERMINAL 
TESTPATTN 


UPEXEC 


UPLIMIT 


* 


STATEMENT 


0 
000007 


070000 


Oooo © 


O*EXECL 
005000 
005415 


505500 
505400 
003500 


RESERV*10 


0 
0 
0 
STRAL*0O 
0 
0 
0 
0 


*EXEC5*+010000 


077777 


SET UP FOR 32k (SEE NOTE 5 IN 
APPENDIX A). 

SET UP FOR 32K (SEE NOTE 5 IN 
APPENDIX A). 


LOOP COUNT STORAGE. 
LOOP COUNT STORAGE. 
LOOP COUNT STORAGE. 


RECYCLE IN STACK 00- 


USED FOR PRESTORING SKPEVNe 
USED FOR PRESTORING SKPODD- 


NUMBER OF INSTRUCTIONS IN THE 
PROGRAM (USED FOR MOVING THE 
PROGRAM). 

STORAGE FOR SAVING THE CONTENTS 
OF TEST ADDRESSES. 


RECYCLE IN STACK Ol. 


SET UP FOR 32K (SEE NOTE 5 IN 
APPENDIX A). 


PAGE 


ADDRESS 


04247 
04250 


04251 


04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 


04262 
04263 


04264 


04265 


04275 
04276 
04277 
04300 
04301 
04302 
04303 
04304 


04305 


0193 


INSTRUCT 


000000 
000007 


070000 


000000 
000000 
000090 
000000 
000090 
001012 
005090 
005415 


505590 
505400 


0035500 


000000 


000000 
000000 
000000 


4G QON0ND 


000000 
000000 
0000N0 
011964 


077777 


861-7 


SEQNO 


006123 
006124 
006125 
006126 
006127 


006130 
006131 
006132 
006132 
006134 
006135 
006156 
006137 


006140 
U06141 
00614e 
006143 
006144 
006145 
006146 
006147 


006150 
006151 
00615e 
006153 
006154 
006155 
006156 
006157 


006160 
006161 


LABEL 


VERIFY 
BITOO 
BITOl 
BITO2 
BITO3 


BITO4 
BITO5 
BITO6 
BITO7 
* 


* CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR 
¥ CONDITION ALL EXISTING BANK 1 STACKS (00 THROUGH 
* PICKING UP BITS- 


x 


0 

000001 
000002 
000004 
000010 


000020 
000040 
000100 
000200 


ISNK1T20K 040010 


IBNK1IT24K 050014 
IBNK1T28K 
IBNKiT32K 070017 
* 


* CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR 
* CONDITION ALL EXISTING BANK 2 STACKS (10 THROUGH 


* PICKING UP BITS. 


a 


060016 


IBNK2T36K 100200 
IBNK2T4OK 110300 


IBNK2T45K 


120340 


IBNK2T49OK 130360 
x 


* CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR 


* CONDITION ALL EXISTING BANK 3 STACKS (14% THROUGH 
* PICKING UP BITS. 


FOR A 20K 


MEMORY 


FOR A 24K MEMORY 
FOR A 28K MEMORY 
FOR A 32K MEMORY 


FOR A 36K 
FOR A 40K 
FOR A 45K 
FOR A 49K 


MEMORY 
MEMORY 
MEMORY 
MEMORY 


THE 
3) 


THE 
13) 


THE 


17) 


PAGE 


ADDRESS 


04306 
04307 
04310 
04311 


04312 


04313 
04314 
04315 
04316 


04317 
04320 
04321 
043522 


04323 
043524 
04525 
04326 


0104 


INSTRUCT 


000000 
o000col 
o000n2 
000004 
000010 


000020 
000040 
000190 
000200 


040010 
050014 
060016 
070017 


100200 
110300 © 
120340 
130360 


66I-F 


SEQNO 


006162 
006163 


006164 


006165 
006166 


006167 
006170 


006171 


006172 
006173 
006174 
006175 
006176 


006177 
006200 
006201 
006202 
006205 
006204 
006205 
096206 


006207 
006210 
006211 
006212 
006215 
006214 
006215 
006216 


006217 
006226 


LABEL STATEMENT 


x 
IBNK3TS3K 140010 
IBNK3T57K 150014 
IBNK3T61K 160016 
IBNK3T65K 170017 


FOR A 53K MEMORY 
FOR A 57K MEMORY 
FOR A 61K MEMORY 
FOR A 65K MEMORY 


CODES USED FOR EVALUATING THE E£S1 ERROR FLAG FOR THE 
CONDITION ALL EXISTING BANK 2 AND BANK 3 STACKS 
(10 THROUGH 17) PICK uP BITS. 


eee & 


x 
IBK23T53K 140370 
IBK23T57K 150374 
IBK23T61K 160376 


FOR A 53K MEMORY 
FOR A 57K MEMORY 
FOR A 61K MEMORY 


IBK23T65K 170377 FOR A 65K MEMORY. 
* ; 
- CODES USED FOR EVALUATING THE ES1 ERROR FLAGS FOR THE 


* CONDITION NO EXISTING STACKS 00 THROUGH 07 DROPPING BITS. 
ak 


ONOFLT8K 010077 FOR AN 8K MEMORY 
SNOFLTL2K 020037 FOR A 12K MEMORY 
SNOFLT1L6K 030017 FOR A 16K MEMORY 
ONOFLT20K 040007 | FOR A 20K MEMORY 
ONOFLT24K 050003 FOR A 24K MEMORY 
SNOFLT28K G60001 FOR A 28K MEMORY 
SNOFLTS2K 070000 FOR A 32K MEMORY 


* 


* CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR THE 
* CONDITION NO EXISTING STACKS 10 THROUGH 17 DROPPING BITS. 
« 


SNOFLT36K 100177 
SNOFLT4#OK 110077 


FOR A 36K MEMORY 
FOR A 40K MEMORY 


PAGE 


ADDRESS 


04327 
043350 
04351 
04352 


04353 
043354 
04335 


04336 


043557 
04340 


04341 | 


04342 


04343 — 


04344 
04345 


04346 
04347 


0105 


INSTRUCT 


140010 
150014 
160016 
170017 


140370 
150374 
160376 


170377 


010077 
020037 
030017 


0400907 
050093 
060001 
070090 


100177 
110077 


00-7 


SEQNO 


006221 
V062e2e 
006223 
006224 
006225 


006226 
006227 
006250 
006231 
006232 
006233 
006234 
006235 


006236 
006237 
006240 
006241 
006242 
006245 
006244 
006245 


006246 
006247 
006250 
006251 
006252 
006253 
006254 
006255 


006256 
006257 


LABEL 


SNOFLT45K 120037 
SNOFLTS9K 130017 
SNOFLTS3K 140007 
SNOFLT57K 150003 
SNOFLT61K 160001 


SNOFLT65K 170000 
3 


+e & & 


BITSe 
* 


SBNKOT20K 040367 


SBNKOT24K 050363 
SBNKOT28K 060361 


SBNKOT32K 070360 
* 


+ & He & 


BITS. 


* 
SBNK2T53K 140367 


STATEMENT 


SBNK2T57K 150363 © 
SBNK2T61K 160361. 


SBNK2T65K 170360 
* 


FOR A 45K MEMORY 
FOR A 49K MEMORY 
FOR A 53K MEMORY 
FOR A 57K MEMORY 
FOR A 61K MEMORY 
FOR A 65K MEMORY 


CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR THE 
CONDITION ALL BANK O STACKS (00 THROUGH 03) DROPPING BITS» 
BUT NO EXISTING STACKS (04 THROUGH 07) IN BANK 1 DROPPING 


FOR A 20K MEMORY 


FOR A 24K MEMORY 
FOR A 28K MEMORY 
FOR A 32K MEMORY 


CODES USED FOR EVALUATING THE ES1 ERROR FLAG FOR THE 
CONDITION ALL BANK 2 STACKS (10 THROUGH 13) DROPPING SITS» 
BUT NO EXISTING STACKS (14 THROUGH 17) IN SANK 3 DROPPING 


FOR A S3K MEMORY 
FOR A 57K MEMORY 
FOR A 61K MEMORY 
FOR A 65K MEMORY 


* GENERAL PURPOSE CONSTANTS. 


x 


NOoU000 
NOQOOOOL 


000000 
000001 


PAGE 


ADDRESS 


04350 
04551 
04352 
04353 
04354 


04355 


04356 


04357 
04360 
04361 


043562 
04363 
04364 
04365 


04366 


04367 


0106 


INSTRUCT 


120037 
130017 
140007 
150003 
160001 


170000 


040367 


050363 
060361 
070360 


140367 
150363 
160361 
170360 


000000 
000091 


l0e-F 


SEQNO 


096260 
006261 
006262 
006263 
006264 


6062605 
006266 
006267 
006270 
006271 
006272 
006275 
VU6274 


006275 
006276 
006277 
006300 
006301 
006302 
006305 
006304 


006305 
006306 
006307 
006310 
006311 
V0G6312 
006313 
006314 


006315 
006316 


LABEL 


NOQO002 
N000004 
N000007 
NO00010 
NOO0014 


N000017 


NOQ0021 | 


NO000035 
N000077 
N000100 
NO0O0177 
NO0Q0300 
N000314 


NO00360 


N000377 - 


NOQ0400 
N0O00477 
N000534 
NO00540 
NO00577 
N000600 


N000677 
N000700 
N001000 
NO006000 
NOO7000 
NOO7101 
NOO7777 
NO10000 


NO40000 
N100000 


Q000002 
000004 
000007 
000010 
000014 


000017 
000021 
000035 
000077 
000100 
000177 
000300 
000314 


000360 
000377 
000400 
000477 
000534 
000540 
000577 
000600 


000677 
000700 
001000 
006000 
007000 
007101 
007777 
010000 


940000 


100000 


PAGE 


ADDRESS 


04370 
04371 
04372 
04373 
04374 


04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 


04405 
04406 
04407 
04410 
O4411 
04412 
04413 
04414 


04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 


04425 
04426 


0107 


INSTRUCT 


0000N2 
O00n04 
000007 
000010 
000014 


000017 
o000a1 
000035 
000077 
000100 
000177 
000300 
000314 


000360 
000377 
000400 
000477 
000534 


~—©000540 


000577 
000600 


000677 
000700 
001000 
006090 
007000 
007101 
007777 
010000 


040090 
100000 


c0G-P 


SEQNO 


006317 
006320 
006321 
006322 
006323 


006324 
006325 
006326 
006327 
006330 
006331 
006332 
006335 


006334 
006335 
006336 
006337 
006340 
006341 


00634e. 


0063435 


006344 
006345 
006346 
006347 
006350 
006351 
00635e 
006355 


006354 
006355 


eeRnHR HEH HH 


LABEL 


N100101 
N140000 
N170000 
N177777 
N400000 


N770000 


N777777 
* 


AP 


+ eee 


eenrereneete ee 


*% & 


STATEMENT 


100101 
140000 
170000 
177777 
400000 


770000 
777777 


PENDIX A 
NOTE 1 


SINCE THE SR REGISTER IS ACTIVATED TO BANK OF ALL 


MEMORY REFERENCES ARE NOw INDEPENDENT OF THE STACK THE 
FOR A B MODIFIED INSTRUCTION 


PROGRAM IS BEING RUN IN. 
OF THE FORM XXQ000 (Y EQUAL TO ZERO)* THE ADDRESS 
REFERENCED IS ENTIRELY SPECIFIED BY THE ACTIVE B 


REGISTER. 


NOTE 2 


SINCE THE SR REGISTER IS DEACTIVATED? MEMORY 
REFERENCES ARE NOW DEPENDENT ON THE STACK THE PROGRAM 
IS BEING RUN INe PROGRAM CONSTANTS CAN NOW BE CALLED 
UP. 


NOTE 3 


OBSERVE THE AU REGISTERe AND REPLACE THE CARD(S) 
CORRESPONDING TO THE BIT(S) SET. 


PAGE 


ADDRESS 


04427 
04430 
044351 
04432 
04433 


04434 
04435 


0198 


INSTRUCT 


100101 
140000 
170000 
177777 
400000 


770000 
T77777 


£0¢6-7 


SEQNO 


006356 
006357 
006360 
006361 
006362 


V06365 
006364 
006365 
006366 
006367 
006370 
006371 
006372 


006373 
006374 
006375 
006376 


. 006377 


006400 
006401 
006402 


006403 
006404 
006405 
006406 
006407 
006410 
006411 
006412 


006415 
U06414 


e& HERR HA HR He HMR HHH * HH H & 


e*eHeE HH HK & 


% 


LABEL 


BIT R 


00 
O1 


02 
03 
04 
05 
06 
07 


NOTE 4 


STATEMENT 


EPLACE 


BJ20A 
BJ20A 


BJ21A 
BJ21A 
BJ22A 
BU22A 
BU25A 
BJ2S5A 


CARD 


(O00BG07> 
(00BG069 


(OOBGOSe 
(O0BGO4e 
(OO0BGO3» 
(OOBGO2r 
(OOBGOl> 
(00B8G00+ 


9-132)» 
9-132) » 


9-132)» 
9-132) > 
9-132)» 
9-132) » 
9-132)» 
9-132)» 


CARD 


CARD 


CARD 
CARD 
CARD 
CARD 
CARD 
CARD 


OBSERVE THE AU REGISTER» AND REPLACE 


CORRESPONDING TO THE BIT(S) SET. 


BIT R 


00 
01 


02 
035 


NOTE 5 


EPLACE 


BJ20C 
BJ20C 


BJ21iC 
B8J21C 


CARD 


(LOBDO03r 
(10BD02» 


(C1LOBDOl1. 
(108D00» 


9-132)» 
9-132), 


9-132) e 
9-132)» 


CARD 
CARD 


CARD 
CARD 


IF THE MAIN MEMORY SIZE IS NOT 32Ke 
SUBROUTINE WILL CALCULATE NEW VALUES FROM PARAMETERS 
SPECIFIED BY THE OPERATOR AT THE PARAMETER STOP. 


ENDOSEG 


3770° 
37706 


TYPE 
TYPE 


37706 
3770« 
37706 
37706 
3770 6¢ 
37706 


TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


THE CARD(S) 


TYPE 3770-6 
TYPE 37706 


TYPE 37706 
TYPE 37706 


THEN THE PARAMETER 


END OF PROGRAM 


PAGE 


ADDRESS 


0109 


INSTRUCT 


ADDRESS 


v0G~F 


02062 
02112 
02116 
02122 
02066 
02072 
02076 
02126 
02142 
02152 
02156 
02102 
02106 
02557 


02673 
02556 
01220 
01233 
01257 
01247 
01253 
01265 
01276 
00010 
03572 
03613 


03655 — 


03655 
03677 
03706 
03714 
03716 
03725 
04062 
04070 
04071 


LABEL 


ABIT2 
ABIT23 
ABIT24 
ABIT28 
ABIT3 
ABITY 
ABITS 
ABITS6 
ABIT568 
ABIT57 
ABIT58 
AB1T6 
ABIT7 
ADDRESS 


ADDRESS1 
ADRXLAT 
ALLONES 
ALLONES1 
ALLONES2 
ALLONES3 
ALLZEROS 
ALLZEROSI 
ALLZEROS2 
BO 

BOOT 
BOOT) 
BOOT2 
BOOTS 
BOOTY 
BOOTS 
BOOT6 
BOOT? 
BOOTS 
BOOTDROP 


BOOTDROPIL 


BOOTDROP2 


REFERENCES 


001572U 
O01771U.» 
001766Us 
ag2014uU 
001354U> 
001364Ue 
001425U 
001414U.e 
002032U 
002043U 
002045U 
001416U» 
001432Ue 
0a2205Ue 
002547U» 
002653U» 
001613U. 
001127Ue 
0912250U 
001234U 
001236U 
001130U»s 
001277U 
001266U 


002010U 
002012U 


001363U. 
001376Us 


002054uU © 


001431U. 
o02061U 
002255uU» 
002551uUe 
002655U 
00161 7Ue 
001135u» 


001136U» 


NOT REFERENCED 


001025Ur 
003610U 
003632U 
003652U 
003674U 
003701U 
003707U 
003726U 
003722U 
NO03677Ue 
004077U 
004067S»P 


003727U 


N04100U 


004075u 


SYSTEMS DATA 


001375U» 
002002Ur 


002037Ur 


002261U. 
002553U» 


001623U.r 
001252uU 


001301) 


O01762Ue 
002017 


002060U 


CO2324uuU» 
002555uUe 


0016301)» 


LABELS 


O02001yU 


002330Ue 
002673 


O02372Ur O002441Ue ON2445U 


002453uUr 002556U 


SOC~P 


04101 
04110 
O41l1 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
04225 


04226 
04307 


04310 
043511 
04312 
04313 
04314 
04315 
04316 
01324 
01314 
032353 
03302 
04227 
01070 
03774 


04004 
04020 
04054 
04041 
04047 
03163 
03165 
03177 
03202 
03210 
03225 


BOOTPICK 


BOOTPICK1 
BOOTPICK2 


Bl 
Be 
B3 
BY 
B5 
B6 
B7 
BASEADR 


BEGINNING 


BITOOQ 


BITO1 
BITO?] 
BITOS 
BITO4 
BITOS 
BIT06 
BITO7 
BITSDROP 
BITSPICK 
CONTROL 
CONTROLI 
CONTSIZE 
DOWN 
OIOBOOT 


 DIOBOOTI 


DI0B00T2 
DIOBOOT3 
DIOBOOTS 
DIOBOOTS 
DIODE 
DIODEL 
DIODE2 
DIODES 
DIODES 
DIODES 


003706Ur 
004117U 

004107S»e 
NOT 
NOT 
NOT 
NOT 
NOT 
NoT 
NOT 
0024575» 
003040U.r 
003775S-e 
001125S.r 
001644Ue 
002574Ue 
004037U 

NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
001205Ue 
H01172U.e 
001024U» 
003257U 

001042U. 
001067U 

003645U» 


004051U 
0036356S-r 
004030U 
004035U 
003637S-e 
003126U. 
oo3204U 
003174U 
003123S-» 
003125Sr 
0aO3222euU 


004120uU 


004115u 


REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 


002464U>» 
0031115» 
004001UP 
001145uU» 
001660U 

002615U. 


REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 
REFERENCED 


001240U 
001270uU 
0035302U 
001101S-» 


003647UP 


003656S-* 


003657S 
003151U» 


003146S» 
003150S 


002512U> 
003112U» 
004172U» 
001162U> 


002637U» 


003256» 


002560S» 
003141S» 
004207U 

001222 


002660U» 


OOZ4O1U» 


002702U» 002722uUr 


003142uUr 
001231uU» 


003502Ue 


003444y 


003731S°» 
001255uU» 
003523U° 


002724U>» 
00373 7Ue 


001265U» 
003761U» 


0030125 
003750U 


001305uU 


004032U 


003651U+ 9003665Ur 003667Ur 903671U» 003673Ue OCOUDGIY 


0049042U 


003226U 


003176U 


900-7 


03226 
03105 
03107 
03117 
O31ie2 
03156 
03160 
02674 
02704 
02715 
02716 
02726 
027355 
02737 
03503 


03516 
03522 
035525 
03554 
033546 
04250 
04251 


04252 
04253 


04254 


04255 


04256 
04257 
04240 


DIODE6 


DIODEMTRX 


DIOMTRX1 
DIOMTRX2 
DIOMTRX3 
DIOMTRX4 
DIOMTRX5 
DIGIT 
DIGITI 
DIGIT2 
DIGIT3 
DIGIT4 
DIGITS 
DIGIT6 
DOTCONT 


DOTCONT1L 
DTCONT2 
DTCONTS 
OTCONT4 
DTCONTS 
EA 

EA1 


EA] 
EB 
EC] 


ECe 


ENTA 
ES 
ES1 


003200Ur 
002763Ue 
003161U 
003113uU 
003116U 
003127Ue 
003152U 
002563U» 
002720U 
O02712U 
002675S» 
002e741U 
002732U 
002676S»° 


On3241uUe 


003346U 

003305S-e 
003336U 

003307Se 
003326U 

003340U 

002566U>» 
Nd02602U» 
004036U» 
9902565uUr 
002670U» 
003601S» 
004056S.r 
001604U. 
OO03354S-e 
003452Us 
001602Ue 
003355Se 
003534U 

003236S»r 


003207U 
003034Ue 


003130uU 
002607Us 


002714U 


002734U 
0O03244uU.r 


00551 7U" 


0035310U»" 


002721S» 
002624U» 
004040S» 
002573u» 
0027425» 
005621S» 
004057U 

001624U» 
0033567U" 
003467U» 


001625vU? 


003370Ur 
003247S° 


NOT REFERENCED 


001351U. 
001522U» 
002066U» 
002126Ur 
O02213U. 
002316Us 
on0242e7Ue 


001356u" 
001533uU» 
002072uUs 
002132uUr 
002233uU» 
0023531uU" 
002433uU» 


003077U 


002631U> 


003252U. 
003321U 


003334U 


00274U4U 
002645U>r 
004052U 
002603U. 
O027H3U» 


00364355» 


001641S-¢ 
003373S» 
003512S> 
001640S-. 
003374S» 


003262S» 


001366U> 
001755U. 
002076Ur 
002136)» 
002243U» 
002345» 
OO2446i > 


0026521 Ie 


003255uU.r 


002667» 
O002614!}o 
004003S-e 
0036623S» 


001677Ur 


O0341NUs 


003533 
001702U. 


003411U.e 


O03273S» 


OOLGUOTLU> 
001764. 
902102 + 
002142 ts» 
OO224 71s e 
002357. 
002511S- 


002745y 


003265uU.» 


0027235» 


002625ur 
O04OG4S Ue 
003767uU» 


001700S° 
003415. 


0017035» 
ON3421y» 


003306y 


001420Ue 
002004 U» 
002106» 
002160uU» 
002262U. 
N02364U» 
004130uUr 


003270Ue 


004002S°e 


002636Ur 
004045Se 
003770S-e 


001707U» 
003420U» 


001712uU» 
0034315» 


9001445uU. 
002030U» 
002112Ue 
N02172Ue 
NO2267U.r 
002373U» 
NO04141U.e 


003276U.s 


O04U01L4Ue 
002646U.r 
0040548U 

003771U. 


001721U>» 
003430S» 


001725Us 


003513Ue 


001452U» 
0O2ANkK1U> 
002116U» 
002177U» 
002304U» 
002400Ur 
004145Ur 


ONS30LU 


0NGO16S 
002657U 
004055U 


001730U 
003446U 


001731U 
0035325 


001473U 
007062U 
00212°U 
002206 
092312 
0024171! 
0041551! 


LOC~¥% 


O4241 
04242 
04243 
01012 
01020 
01052 
01057 
01064 
01072 
03104 
04244 
04245 
04246 


04247 


04250 


04251 
04333 
04354 
043555 
04356 
04317 
04320 
043521 
04322 
04323 
04324 
04325 
04526 
04327 
04350 
04551 
04532 
03460 
03470 
03473 
03474 
03504 
03514 


ES2 
ESR1O 
ESR11 
EXEC1 
EXEC2 
EXEC3 
EXECY 
EXECS 
EXEC6 
EXITTRAN 
FAILADR 
FAILDIODE 
FAILPTTN 


FAILTEST 
HNS 


HNSX 
IBK23T53K 
IBK23T57K 
IBK23T61K 
IBK23T65K 
IBNK1IT20K 
IBNKIT24K 
IBNK1T28K 
IBNK1T32K 
IBNK2T 36K 
IBNK2T40K 
IBNK2T45K 
IBNK2T49K 
IBNK3T53K 
IBNK3T57K 
IBNK3T61K 
IBNK3T65K 
ICON 
ICON] 
ICON2 
ICONS 
ICONG 
ICONS 


004161U 
002534S-» 
001052Ue 
001053U» 
001073Ue 
001006U» 
001043U 
001056U 
004304 


001070U — 


003102U 

001316U» 
003164S» 
001315S-° 
002107U.s 
003230Ue 
002736Ue 
003313S» 
001103S»* 
O02023Ur 
001105Se 
001424Ur 


004146U» 
001065U 
001064U 
004257U 
001011U.e 


O001327Us 
003177U.r 
001326S° 
002113uU? 
003333S°9 
002747UPe 
003327U» 
001342U» 
002151uU» 
001606U» 
001537U 


NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 


001460U 


NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED | 
001413Ure 001526U 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 


001545U 


NOT REFERENCED 


NOT REFERENCED 
NOT REFERENCED 


003361U. 
N03511U 
0034615» 
QO3462S» 
003477U 


(0035310 


OG33563Ue 


OG3504Ue 


0035075 


004162) 


001016U 


001631U>, 
003201U. 
001632uU» 
002117U. 
0O03343Ur 
002766» 
003332S-» 
001402U > 
002340U.r 
002510) 


OO03400U> 


003506S 


003227 
003206U» 
002063U> 
Q02123UP 
OO 344 Tie 
003043S» 
003337U 
0014356U>» 
002537» 


OOS4OuI I+ 


003225uU 

002067uU» 
002127yuU» 
003455. 
003055ur 


001515. 
003005uU» 


ONS440Ue 


N02073U» 
002133» 
9003500S 

003057U. 


N01610U.e 
005105» 


NOS443Ue 


N02N77Ue 
002137U» 


003063Ur 


001717Ue 
004l122eU 


GO3535U 


On2103U 
002143uU 


003101U 
ONL74a7y 


-80%-F 


03516 


03525 


04252 
03547 
033573 
O3414 
03424 
03450 
03452 
04253 


04254 


04255 
04256 


04257 
04260 
O1111 
01115 


01117 


01124 


01302 


01313 
01000 
02557 
01561 
01563 
01565 
01567 
01571 
01573 
01575 
01577 


02146 


02157 
02203 
O22le2 
02247 


ICON6 
ICON7 
INCREM 
ISOCONT 
ISOCONTI 
ISOCONT2 
ISOCONTS 
ISOCONT4 
ISOCONTS 
LOOPI 


LOOP2 


LOOPS 
LOOPCOUNT 


LOWEXEC 
LOWLIMIT 
MOVE 
MOVE1 


MOVE? 


MAIN 


MAINTAID 
MAINTAID1 
MEDIA 
MUBITI 
MUBIT2 — 
MUBITS 
MUBIT4 
MUBITS - 
MUBIT6 
MUBIT7 
MUBITS 
MUBITS 
MUDROP 
MUDROPA 
MUDROPAL 
MUDROPB 
MUDROPB1 


003463Sr 
003521U 
003357S» 
003330U 
003364Ur 
003402U 
003414Ur 
O003405Uer 
003445U 
N902462Se 


 003106S 


003465Sr 
004076U» 


~002463Se 


003144S» 
004006S» 


003525uUs 
003376S» 
003366U 


003417U 
003407U» 


a02505u» 
003107U 
003510u» 
004103S» 


002532uU" 
0035203uU» 


004041U 


NOT REFERENCED 


003351S» 
003776U 
001021U 
001026U» 
001054U» 
001112S-» 
001113S 
001030Ue 


001176Ur 
001306U» 
001076U» 
001461U» 
001456U> 
001450U 
001546U?r 
001543U» 
001531U 
001477U 
001540U 
001527U 


~001331uUs 


002153uU 
002162U 
002155U 
o0224eU 


003433S» 


001062vU 
001066U» 
001121U 


001033uU» 


001212uUe 
001311uU 

001100U» 
O001471U» 
001465» 


001556uU 
001552uUs 


001336U 


0035275 


003435S, 


003425U 


002700S, 
003131U. 
003735S-» 
004116 

0027015» 
0033125» 


003464U» 


001123u 


001036U>» 
001245U> 
001116U. 


001511U 
001470U» 


001555U 


003505.» 


002717U> 
0031356» 
O003746U> 
00274OU>s 
003335.» 


003577S» 


001041» 
001274U> 
0011205 

001501u- 


003526u 


003006Se 
003154%u° 
003777Se 


N03042Se 


0N3466S-e 


003617S-r 


001046uU» 


001515uU 


001505» 


N03007Ue 
003160U 
004005U» 
003061U» 
003530U. 


0036415» 


901051uUr 


001510U 


003032U» 
003311S-» 
004N050Ue 


003115S> 


003736S-» 


003661S» 


001N63U» 


003100 
003320U 
ON¥O64S 
O0N312NS 
0037641) 


003734U 


091137) 


60¢~P 


02253 


02257 


02262 
02266 
02316 
02522 
02326 
02351 
02555 
023544 
02370 
02377 
02453 
024357 
02443 
02446 
01453 
01444 
01451 
01472 
01512 
01521 
01552 


04366 


04367 
04370 
04371 
04372 
04373 
04374 
04375 


04376 
04377 
04400 


MUDROPB2 
MUDROPBS 
MUDROPB4 
MUDROPC 
MUDROPC1 
MUDROPC2 
MUDROPC3 
MUDROPCY 
MUDROPD 
MUDROPE 
MUDROPE1 
MUDROPF 
MUDROPF1 
MUDROPF2 
MUDROPF3 
MUDROPFY 
MUPICK 
MUPICKA 
MUPICKB 
MUPICKC 
MUPICKD 
MUPICKE 
MUPICKF 
NO000000 


NOoOO0OO1 
NO00002 
No00004 
N000007 
NOOOQO10 
NOO0014 
NQ000017 


No00021 
NO00035 
N000077 


002217U 
002215U.r 
002256U 
002156U 
oo2311uU 
002275U 
002273Us 
002325U 
Oo2271U 
002342U 
002347U 


~—6002545U 


002426U 
002404U 
o02402Ue 
002442U 
001323U 
001440U 
001442U 
001443U 
001475U 
001517U 
001520U 
001002U» 
001357U» 
001433U° 
001512U. 
002016U. 
092270U» 
002425U» 


003242U» 


003772Ue 
003023U 

001031U» 
001343U» 
O0OO03020U» 
001345U> 
001403U» 
001466U» 
NO2274U.e 
001077U 

NOT 
003133U» 


002222uU 


002277) 


0024%06U 


001003uU» 
001362uU» 
001446U>s 
001523u» 
002057uU» 
002305uU" 
002430U" 
003253u» 
004004UP 


001075uU 
001437Us 
003027U 
001441U.e 
001516u» 
001502uU» 
002403U 


REFERENCED 


003155u 


001012U» 
001367U» 
001453U» 
001534» 
002200U>» 
002310U> 
002434U» 
003266» 
004060) 


001611» 
001615» 


001621» 
001506U>» 


001013U.r 
001374U» 
O0146ul)» 
001551U» 
002207» 
002313uU» 
O02447U. 
003277U» 


001715U>» 


001752» 
O02024KU. 
901553)» 


001317» 
001377U.e 
001467uU» 
001554uUe 
Oo0224u1uUr 
002317U.s 
002465U» 
OO344l ye 


001750» 


002154U» 
00234ly 
001765uUe 


001332uUr 
001410U» 
001474U»e 
001726U» 
N02244Ue 
002332U. 
002513uU» 
9003703Ue 


N02152U 
003024U» 


002011U» 


001337U» 
001421U> 
001504U. 
002000Ur 
002250Us 
002365Ur 
003205Ur 
003711U» 


004123U 


002042Ur 


001352uU 
001430U 
001507U 
0n2005U 
002263U 
002374 
003221) 
003751U 


On2216 


Ole-F 


04401 
04402 
04403 
04404 
04405 


O4406 


04407 


04410. 


04411 
04412 
04413 
O4414 
04415 
O4416 
04417 
04420 
04421 
04422 
04423 
O4424 
04425 
02452 


01601 


01615 
01621 
01624 
016350 
04426 


04427 
04450 
04431 
04432 
04433 
O4454 


NO00100 
N000177 
NO00300 
NOO00314 
N000360 


NOQ00377 


NO00400 
N000477 
NO00534 
NOO00540 
NO00577 
NO00600 
N000677 
N000700 
N001000 
NOO06000 
NO07000 
NOO7101 
NO0O7777 
NO10000 
NO40000 


_ NODROP 


NOPICK 


NOPICK1 
NOPICK2 


NOPICK3S 


NOPICK4 
N1i00000 


N100101 
N1i40900 
N170000 
N177777 
N400000 
N770000 


003013U 


NOT REFERENCED 


001034U 
003453U 
001361Ur 
001550vUe 
002424U 
0901350Ue 
001472Ue 
0902031Us 
0022 76Ur 
002633U. 


— 001044U 
~—001035Ue 


003725U 
O90L037Ue 
001040U» 


001373U» 
OO1L777U» 


001355u» 
001476U» 
oo02040uUe 
002303uU" 
002654Ur 


001045v 


001047U.r 
004126U» 


NOT REFERENCED 


001050U 


NOT REFERENCED 


003014U 

003011uU 

001340U> 
002170Ue 
001106U» 
Co2204U» 
002254U» 
001760U» 


001353Ue 


O001612U 
001616U 


~6©0901607Ue 
~6©901605U 


001400Ue 
004151U 
002355Ue 
002440Ue 
001603U 
003365Ue 


001434uU» 
002231Us 
001722uU» 
002260U» 
002323uU" 
001775u» 


001560uU? 


001614U» 
001513uU° 


o002415u 
002546U 


005406U 


NOT REFERENCED 


O001711uU 


OO1427U» 
002007. 


001365» 
001521U. 
OO20K4» 
0023441)» 


003416U» 


001061 
004137U. 


001745U>» 
002301U 
OO3S34K1U> 
002327U» 
002552uU 
002035U» 


OO1L4GILIL >» 


001620Ur 


002021uU> 


O001455e 
002015. 


001371U> 
001532. 
QO02157U» 


O02346U> 
O04142U. 


004152uU 


002147U. 


004125u 
o02500U» 


Q002050U» 
001422Ur 


001622 
002336Us 


001463us 
002056ur 


001406uU. 
001763uU° 
On216lue 
002377U. 
004143yU 


003140y 


002525uUe 
002165yU» 
001447yUe 


002371luUr 


001500u» 
O02240Ur 


9001417. 
002003uUr 


002212U. 
oo2!2ko01Ue 


002554uU» 
002226uUr 
N01L454uUr 


OO24H4U» 


001503U» 
002272U.e 


O0144GUe 
002013U. 


002214U> 
002570U» 


002767U 
002352U» 
0015245U.e 


002550Ue 


001542u 
002307U 


001451 
002027 


0022661! 
002611uU 


On24leu 
001535uU 


004136U 


TI@-h 


044355 


01074 
04263 
04262 
04261 
01150 
01165 
04264 
02554 
02552 
02550 
02546 
03227 
04275 


04205 
04212 
04166 
04173 
04265 
01744 
01755 
01763 
02003 
02020 
02027 
02040 
04356 
04357 
04560 
04361 
04362 
04563 


N777777 


PARAMETER 
PARITYODD 
PARITYEVN 
PARITYMSK 
PARTYSKP1 
PARTYSKP2 
PROGSIZE 
RADRO 
RADR1 
RADR2 
RADR3 
RANDOM 
RECYCLE 


RESTORE 
RESTOREL 
SAVEADR 
SAVEADRI 
SAVEK 
SBOROP 
SBDROPA 
SBDROPB 
SBDROPC 
SBOROPD 
SBOROPE 
SBDROPF 
SBNKOT20K 
SBNKOT24K 
SBNKOT28K 


SBNKOT32K 


SBNK2T53K 
SBNK2TS7K 


001637Ur 
002300Ue 
003237Us 
003642U» 
001010U» 
001133U 
001131U 
001144U.r 
001142S 
001143S 
001114U 
092541 
002543U 
002545U 


001672U» 
002335Us 


003250» 


005662U» 
001110U 


001213Ur 


NOT REFERENCED 


003153U.s 
001022S» 
001574Ue 
002075U» 
002135U» 
002315 
002605U» 
003232Ue 
003612U» 
004164U 
002564Ue 
OO04202Ur 
002561Us 
004202U 
0042015» 
001335U 
001751U 
001753uU 
Q001754U 
oo02006uU 
002025U 
002026U 
001770U» 


003162uU» 
001060Sr 
001576uUP 
002101U» 
O02141uU» 
0023521uUr 
002627U" 
003345ur 
003634U" 


004224U 
004221U 
O04204U 


004213U 


g02221U 


NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 


Oo02053Us 


002405U 


NOT REFERENCED 


001723U> 
002414, 
003263Ur 
003732U» 


001643uU 


003224U 

001560U. 
001600U> 
002105Ur 
002145U> 
002334U.r 
002650U» 
003372U» 
003654U.r 


001744U+ OOZ020Ur 002146Ur 002167Ur 002230U 


002705uUr 
003274U Pr 
004104U 


001562uU.r 
001627U> 
O02111U> 
002202Ue 
002367U» 
002672U. 
003413U>» 
003676Ur 


001564» 
001634uU.+ 
002115uUe 
002211lU» 
002376Ur 
003022uU" 
0034%23uUr 
003705uU» 


00304G4uUr 003053. 
003352U» 003436U.r 


001566? 
001733uU» 
002121» 
002246U» 
002432uU» 
003031» 
003427U» 
003713uUr 


003N76Us 
OCO3SK00Us ONBK20U 


001570Ue 
002065U»r 
002125U.r 
002252U» 
002436Us 
003135U» 
003451U> 
0O03724Ur 


003103uU 


001572U 
002071U 
002131U 
002265u 
002451U 
003157U 
003457U 
004150U 


Cle-P 


04564 
04565 
01337 


01350 


01355 
01565 


(013577 


01406 
01417 
04276 
04277 
02455 


02466 
02467 
02477 
02514 
02515 
02524 
04340 
04341 
04542 
04545 
04394 


04345. 


04546 
04347 
04350 
04352 
04353 
043551 
04354 
04355 
04337 
01655 


01645 
01653 
01655 
01661 
01670 
01674 


SBNK2T6O1K 
SBNK2TOSK 


SBPICK 

SBPICKA 
SBPICKB 
SBPICKC 
SBPICKD 
SBPICKE 
SBPICKF 


SCRATCHI1 
SCRATCH2 


SELECT 


SELECT 


SELECT2 
SELECTS 
SELECT4 
SELECTS 
SELECT6 


SNOFLT12K 
SNOFLT16K 
SNOFLT20K 
SNOFLT24K 
SNOFLT28K 
SNOFLT32K 
SNOFLT36K 
SNOFLT4OK 
SNOFLT45K 
SNOFLT53K 
SNOFLT57K 
SNOFLT59K 
SNOFLT61K 
SNOFLT65K 
SNOFLT8K 


SPADR 


SPADR1 
SPADR2 
SPADRS 
SPADRY 
SPADRS 
SPADR6 


NOT REFERENCED 
MOT REFERENCED 
N01322U 
001344yU 
001346U 
001347U 
001370U 
001404U 
001405U 
004013S» 
0ON4O24Se 
001341luU.e 
N02252Ue 
004153U 
002506U 
NOT REFERENCED 
002473U 

002533U 

NOT REFERENCED 
002520U 

NOT REFERENCED 
NOT REFERENCED 
OO1774Ue OO2225uUe 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 
ON2034Us 0023551uU9 
NOT REFERENCED 
NOT REFERENCED 
O02047Ur OO2411ivUs 
NOT REFERENCED 
NOT REFERENCED 


004025Ur 
004027U 
001401U° 


NOT REFERENCED 
NOT REFERENCED 


001757Ue 
001601U. 
002437Us 
001657U 
001650U 
001652U 
001705U 
001664U 
001667U 


002164» 
001734uU» 
0O02443UP 


002302uU? 


OO4034U 


001435U» 001514uU. 


002235U 


002361U- 004156U 
Oo242l1yU 
002174Ur 004132 


Q02205Ue 002253Ue 
002452U 


OO1L746Us N02022Us 


002257Ur 202322Ue 


002150Ue 


002326U» 


002171 


002337U+ 002356Ur 002416Ur 002535Ur 004127Ue On4140y 


On237NVU 


eIZ-b 


01704 
017e1 
01730 
01754 
03556 
04500 
043501 


04502 


04303 


03055 
03044 
03060 
03103 
03750 


03740 
03745 
03752 
03763 
03005 
03007 
03052 
01056 
04304 
04305 
02765 
03004 
02764 
04306 
02746 
01146 
01155 
01157 
01163 
01200 
01204 
01213 
01214 


SPADR7 
SPADR7A 
SPADRS 
SPADRY 
SPCONT 
STRA 
TEMPORARY 


TERMINAL 
TESTPATTN 


TRAN 
TRANI 
TRAN2 
TRANAUNEG 
TRANBOOT 


TRANBOOT1 
TRANBOOT2] 
TRANBOOTS 
TRANBOOT4 
TRANSFORM 
TRANSFM1 
TRANSFM2 
UP 

UPEXEC 
UPLIMIT 
VERFTRFM 
VERFTRFM1 
VERFYDIO1 
VERIFY 
VERIFYDIO 
WORSTL 
WORST2 
WORSTS 
WORST4 
WORSTS 
WORST6 
WORST7 
WORSTS 


0016066Ue 
001713uU 

001724 

001710U> 
O03424U» 
003235S» 
001303S» 
003710Ue 
004105Se 
091126S» 
001656U» 
002460S»e 
003267Se 
003471U. 
003015U. 
003062U 

003037S» 
003056U> 
003603U» 


003747U 
003574Se 
003765U 
003575Se 
002175Ue 
003033U 
003026U 
001055U 
001057U 
001027U» 
002623Ue 
003000Us 
002760U» 
003036S-» 
002601Ur 
001161U 
001151uU 
001154U 
001215U 
001166U 
0901201 
001177U 
001170U» 


001673U 


001716uU» 
003571U 

0035246S» 
001304U» 
0037335» 
004113uU. 
001160uUr 
001704U 

002467uUs 
005275S° 
003476uU" 
005025u» 


005054uU 
003064yU 
003605uU? 


0036145 


003615S» 
002236Us 


0011075 
002666uU» 
0035002uU 
002762U 
003065U 
002622uU» 


001203U 


001720U, 


003261S» 
001310U> 
003743U. 
0041145 

001214U> 


002515uU. 
003300S» 
003520U 
003104U 


003607UPr 


0037587U 
002306U> 


003004U 


002644), 


00172735 
003272S» 
O01z1 AU. 
OO374uS» 
001226Ur 


00324N0S- 
003314U> 


003623Us 


002362U. 


002665U.r 


003304%uU 
001675. 
003756Ue 
0O12u 7 Ue 


003243S° 
003325uU» 


003625uU» 


002422uUr 


N02764uU 


NOLG76U. 
004065S» 


001260U» 


N03251S° 
003353S» 


N05627Us 


002454Uer 


001701U.e 
004073U» 


001276U» 


003254S» 
0034375» 


003631Us 


003003U 


0N3702U 
ONYOTHS 


001307U 


00 3264S 
ON3842S 


0N3773uU 


vle-v 


01140 
Y2000 
02602 
02562 
02621 
02624 
02606 
04121 
04156 
O4151 
04161 
04165 
03013 
02645 
02645 
02650 
02664 
02667 
02651 
03025 
77777 


WORSTPTTN 
XO1 

XDe2 
XDIODE 
XG1 

XG2 
XGROUP 
XSTACK 
XSTACKL 
XSTACK2 
XSTACK3 
XSTACKY 
XTRANSFM 


YDI 


YO2 
YDIODE 
YG1 
YGe2 
YGROUP 


~YTRANSFM 


22222222 


ONL132Ue 001134» 
002575U 

Q02577U 

NOT REFERENCED 
002616U 

002620U 

002567Ur 002571U 
Q001072Ue 004165U 
004133U 

004124U 

004135U 

004144Ue gO4157U 
NOT REFERENCED 
00264%0U 

002642U 

002610Ue 002612 
002661U 

002663U 

002632Ue O0U2634U 
003016U 

NOT REFERENCED 


Clé-P 


SEQNO 


000000 
VO0001 
000002 


000003 
OU000% 
000005 
000006 
000007 
000010 
vO0011 
000012 


000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 


0000235 
000024 
000025 
000026 
000027 
000030 
000031 
v0003e2 


000033 
000034 


LABEL 


1OTA 
BEGIN 


IOTA 
ADR 
CHTBL 
XX 

KH 

KL 

KS 
TAKLE 


LOADIA 


TAK2E 
LOAD2A 


BEGIN 


EISIL 
FALADR 


ZROL 
CMPL 


FAULTA 
MONINO 


STATEMENT 


CONTR*NOYES 
ALLOC 
07700 


010000 
0 

O*0 

0 

0000 
0000 
00000 
0000 


0000 

0000 

0000 

OUTPUT*4*1le2 
PROG*NOYES 

P SEG 

SIL*00 

SXL LOKO EXT INT 


TUP*LOK*T1 
O*IOTA 


O*EISILM INT RTN UP REF 


JPAUZ*LOK+2 
JPAUZ*LOK+1 
STOP*40 ERR STOP 
Q*ZROMON | 
O*CMPINT 


 OFAFAULT+1 


O*MONINX REF ADDR 


PAGE 
ADDRESS 


00000 
07700 
07701 


07702 
07703 
07704 
07705 
07706 
07707 
07710 
07711 


07712 
07713 


onal 


INSTRUCT 


5047 0 
5034 00 
5036 10 


55 7703 
010000 
016124 

60 7797 

60 7797 

5956 4O 
012060 
012571 


015375 
014342 


91¢~P 


SEQNO 


000035 
000036 
000037 
000040 
000041 


000042 
000043 
000044 
000045 
QO0046 
000047 
000050 
000051 


000052 
000053 
000054 
000055 
000056 
000057 
0009060 
000061 


000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 


000072 
000075 


LABEL 


IRJPFL 
EFSIL 
AUSIL 
AURIL 
EIRH 


EF MH 
AUTMH 
INMOH 
CHNPRL 
CHNPSL 
FPRIL 
FPRIL1 
WEINTL 


HIEISP 
SOODRP 
RSMF OK 
FLRMSF 
RTCMB 
MWAID 


RSMFAB 
SPT13C 
SPI12A 
RTCuM 

RTCMOT 
RTCOVK 
EIOKHA 
EITOKLA 


JPEFL 
PROKAA 


STATEMENT | 


OxIRUPFM 
O*#EFSILM 
O*AUSILM 
O*AURILM 
O*EIRTL 


O*EF MON 
O*AUTMON 
O*INMON 
O*CHNPRM 
O*CHNPSM 
O*FPRIM 
O*¥FPRIMI 
O*WTEINT 


RESERV*17 
RESERV*01 


O*HIEIS 
O*SOODRP 
O*RSMFKO 
O*FLRSMF 
O*¥RTCMA 
O*MWAED 


O*¥RSMFB 
O*SPT13D 
O*SPI128 
O*¥RTCOK 
O*RTCNOT 
O*RTCOVF 
O*ETOKH 
O*ETOKL 


O*JPEFM 
O*PROKA 


REF 
REF 
REF 


REF 
REF 
REF 

REF 
REF 
REF 

REF 

REF 


REF 


PAGE 


ADDRESS 


07714 
07715 
07716 
07717 
07720 


07721 
07722 
07723 
07724 
07725 
07726 
07727 
077350 


07731 
07750 
07751 
07752 
07753 
07754 
07755 
07756 


07757 
07760 
07761 
07762 
07763 
07764 
07765 
07766 


07767 
07770 


00902 


INSTRUCT 


016441 
016130 
016134 
016334 
015367 


016000 
016006 
016014 
012341 
012347 
012506 
012510 
012540 


000000 
000000 
013324 
013045 
017547 
017543 
017615 
014002 


017216 
017214 
017212 
017210 
017206 
017204 
013052 
0135957 


011772 
015362 





LI@~v 


SE QNO 


000074 


000077 
000100 


000101 
000102 
000105 
000104 
000105 
000106 
v00107 
000110 


000111 
OU0LLe 
000115 
000114 
000115 
0U0116 
000117 
000120 


000121 
00012ec 


LABEL 


PRBADD 
000075 RSMFBA 
000076 RTCCC 


IOTA 


STATEMENT 


O*PRBADV REF 
O*RSMFA REF 
O*ADR REF 


SIL LOKO INT 


ENTSR*0 INITIALIZE STACK REF 
ENTAL*AF AULT SET ADDR O-1 TO JP 
ENTSR*10 REF BANK 0 

STRAL*0 STR RJP*AFAULT+1 AT ADDR O 
ENTSR*0 REF CURR BANK 

ENTAU*CHAY CL AU 

ENTALK*0 CL AL 

REMARK 

REMARK 

REMARK* AU IQOOQHICH AL C00000000 
REMARK* TOO00LOQCH BOOOOSIZE 
REMARK 


REMARK*AU17#H1 IF FAST INTERFACE ON HI@=JPRD CHAN 
REMARK* #0 SLOW 

REMARK *AU09~12AHIGHER JUMPERED CHANNEL NO- 
REMARK*AU08R1 IF FAST INTERFACE ON LO}@-JPRD CHAN 
REMARK* RQ SLOW 


~ REMARK*AUQ0"03HLOWER JUMPERED CHANNEL NO> 


REMARK 


PAGE 


ADDRESS 


07771 
07772 
07773 


et. 


10000 
10001 


10002 
10003 
10004 
10005 
10006 
10007 


IN 


0003 


STRUCT 


015354 
017612 


000000 


50 


34 NO 


5073 90 


12 
50 


5374 
73 10 


GG 0ono00 


50 
10 
70 


73 #0 
6527 
00N0 





8Ie-P 


SE @NO 


000123 
000124 
000125 
000126 
000127 


000130 
000131 
000132 
000135 
0001354 
000135 
000136 
000137 


000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 


000150 
000151 
GOQ152 
000153 
000154 
000155 
000156 
000157 


000160 
000161 


LABEL 


PSTOP 


START 


REMARK* JTO1 CK CONSTANT INe 


PAGE 


STATEMENT ADDRESS 
REMARK*NOTE@JUMPERHCABLE IN®YT To OUTPUT ON CHAN 
REMARK 
REMARK*AL17#1 IF NO CDM/ONE OF 1218 MODES 
REMARK* HO IF CDM/1219 MODE 
REMARK*ALO8#1 IF STANDARD 1218 BUFFER MODE 

— REMARK* #0 IF NTOS COMPATABLE BUFF MODE 

REMARK*AL00“03H17 FOR 16 I70 CHANNEL COMPUTER 
REMARK* 16 FOR 12 
REMARK * 07 FOR 8 
REMARK* 06 FOR 4 
REMARK 
REMARK 
SKP*01 SET SKP KEY 0 IF PARAM ALRDY ENTD 10010 
SKP¥*40 UNCOND SKP 10011 
JP*START JP IF SKP KEY 0 SET 10012 
STOP*40 ENT PARAMETERS PER INSTRUCTIONS 10013 
REMARK* SHOWN IMMEDIATELY ABOVE. : 
STRAU*AUPRAM SAVE PARAMETERS inodi4 
STRAL*ALPRAM 10015 
RUP*UPRAM UNPACK AND STR PARAMETERS 100164 
RJUP*CHACHA TO CHAN CHANGER 10017 
SIL LOKO INT 10020 
SXL | | | 10021 
RJUP*CHSET SET CHAN TBL LBL AND B 10022 


| QUT® OR EF ACTIVE. 
REMARK* I02 CK RTC FALSE RUN. CK FALSE IDRe QDR» 
REMARK* OR EFR AND ABILITY To CL ACT FF. 
REMARK*I03 CK SRSM AND SKPNR FUNCTIONS 

REMARK® 10456 CK FALSE TERM OF A LO CHAN WHEN HI 


REMARK* 
REMARK * 


ONLY IS TERM = ALSO CK TERM OF HI CHAN 
WHEN LOWER IS TERM. 


0004 


INSTRUCT 


5050 91 


5050 40 
34 0n20 
5056 40 


46 6624 
4G 6625 
76 6137 
76 6233 


5034 00. 
5036 00 
76 S&74 





61¢-P 


SEQNO 


000162 
000163 
000164 
000165 
000166 


000167 


000170 
000171 


000172 


000173 


OO01L74 


000175 
000176 
000177 
000200 
000201 
000202 
000205 
000204 


000205 
000206 
000207 
000210 
000211 
000212 
000215 
000214 


000215 
000216 


LABEL 


—RUP*I0456 RUN I04*596 


PAGE 0005 


STATEMENT ADDRESS INSTRUCT 


REMARK* 10789 CK FALSE ACTIVATION OF LO CHAN WHEN 
REMARK* HI CHAN ONLY IS ACTVTD = ALSO Ck ACT 
REMARK* OF LO WHEN HI IS ACT. 

REMARK*I010 CK EFreOUTPFAND IN ACTIVE FUNCe ENABLES 
REMARK* I011 CK PROPER STR OF BCWCIN®OUTOEF) « : 


REMARK*I0O12 CK EXFOVeREQUEST PROCCESSINGe RIL FAILURE? 


REMARK* PREMATURE AND NORM BUF TERMse BHO CKTe 
REMARK*I013 CK OUTOVeFALSE JOR» FALSE MON ON TERMe 


REMARK* 1014 CK BKwD BUFe CDM. 
REMARK* [016 CK HNRNG OUT AND EF MON. 
REMARK* RLJPEI CK RIL AND IJPEI REL OF LOKO 


REMARK* I015 CK SIL ABILITY TO LOKO EFe OUT MONe 
REMARK*I017 CK CHAN PRIOR? 7-60 77°52 --==37092=0. 
REMARK* I018 CK HNRNG OF HI PRIOR FUNC WHEN TwO 
REMARK* FUNC WAITING TO BE HNRD AN SAME CHANe 
REMARK* WAITCK CK wTFI FUNC. 

REMARK*CMPLKO CK COMPARE + FORCE INT LOKO 
REMARK*EXFEIC@=TEST EXF AND EI CONTROL 
REMARK*INOUTC= TEST INPUT AND OUTPUT CONTROL 


REMARK*CSDATA=TESTS DATA TRANSFERRING 
REMARK*MONTIN@TEST INPUT MON INT 
REMARK*ATIME=TEST EF/Q0D AND IN ACK TIMING(SLOW) 
REMARK*CDMIN@=TEST INPUT CDM 

REMARK*FUNPGA=TEST FUNCTION PRIORITY CRKT 
RJP*IO1 

RJP*I02 

RJP*I03 


10023 76 
10024 76 
10025 76 


On7e 
0133 
0396 


10026 76 
10027 76 


0346 


RJP*I0789 RUN Y07°899 0454 


0Go-P 


SEQNO 


000217 
000220 
000221 
000222 
000225 


000224 
000225 
000226 
000227 
000230 
000231 
000232 
000235 


000234 
000235 
000236 
000237 
000240 
000241 
000242 
000245 


OOO24K4 
000245 
000246 
000247 
000250 
000251 
000252 
000255 


000254 
000255 


LABEL 


REES 


STATEMENT 


RJP*I010 

RJP*7o11 

RJUP*IO12 

RJP*I015 

RUP*I014 

RJP*J016 

RJP*RLUPET 

RJP*I015 | 

RJP*1017 CK CHAN PRIORITY 

RJP*I018 CK FUNC PRIOR 

RUP*WwAITCK CK FUNC OF WTFI 

RJP*CMPLKO CK SIL COMPARE 

SKP*10 SET SKIP KEY 3 TO RUN NON=JPRD 
REMARK*TESTS ONLY. 

JP¥*¥LOKt6 

STOP*04 STOP K2 SET NORM STOP NON-JMPRD 
RJUP*HONINT CLEAR ALL MONITORS 
RJP*TERMAL TERM ALL ACT 

RJP*SRSMAL SET RESUMES 

JP*START RECYCLE 

RJP#*EXFEIC TEST EXF/EI CONTROL 
RJUP*INOUTC 

RJUP*CSDATA TEST C REG AND [NPUT/STR SEL 
RJUP*MONTIN | | a 
RJUP*ATIME 

RJP*COMIN 

RJP*FUNPGA 

STOP*04 SET STOP KEY2 TO END 

SKP*04 SET SKIP KEY 2 TO RUN SPECIAL 
SKP¥*40 

JP*SPECIA TO SPECIAL I/70 TEST PARAM STP 


PAGE 


ADDRESS 


10030 
10031 
10032 
10033 
100354 


10035 
10036 
100357 
10040 
10041 
10042 
10043 
10044 


10045 
10046 
10047 
10050 
10051 
10052 
10053 


10054 
10055 
10056 
10057 
10060 
10061 
10062 
10063 


10064 
10065 


0006 


INSTRUCT 


76 0556 
76 0612 
76 1132 
76 1362 
76 1516 


76 1663 
76 «1774 
76 2120 
76 2230 
76 2415 


76 2521 


76 2542 
5050 10 


34 0053 
5056 04 
76 6353 
76 5447 
76 6374 
34 0020 
76 2574 


76 3341 
76 40N3 
76 4245 
76 «84343 
76 4625 
76 4735 
5056 494 
5050 4 


5050 40 
34 6631 


12-7 


SEQNO 


000256 
000257 
VO00260 
000261 
000262 


000265 
V00264 
000265 
000266 
000267 
000270 
000271 
000272 


000275 
000274 
000275 
000276 
000277 
000300 
000301 
000302 


000303 
000304 
GO00305 
000306 
000307 
u00310 
G00311 
000312 


GU0315 
000314 


LABEL 


Idi 


TBLIOI 


SKTICK 


SKOICK 


OKFICK 


STATEMENT 


SKP*20 
SKP*40 
REMARK*AND ALLOW UPAC LOAD OF OTHER MTU BLOCK 


SET SKIP KEY 4 TQ REF BOOTSTRP 


JP*BOOTS TO BOOTSTRAP 

JP*¥REES PREP RECYCLE 

0*0 ENTRY 

ENTALK*I0O1 

STRAL*IFAULT 

CL¥*¥AUERDS ERR STR LOK 

CL*¥ALERDS ERR STR LOK 

CL¥*¥FAULTI 

RJP*JMPRD FIND NON=JMPRD CHAN 
ENTALB*CHTBL ENT CHAN NO 
ENTAU*ULOMSK 777700 

SLSU*SKIICK MOD CHAN 
STRAL*SKIICK RESTR TO RTN 
SLSU*SKOICK MOD CHAN 

STRAL *SKOICK RESTR TO RTN 
SLSU*SKFICK MOD CHAN 
STRAL*SKFICK RESTR TO RTN 
SKPTIN*®XX IN INACT? 

RJP*RCORDI ACTIVE = JP AND SAVE ERR 
SKPOIN*XX QUT INACT? 

RJP*RCORDO ACT = JP AND SAVE ERR 
SKPF IN*XX EF INACT? 

RJP*RCORDF ACT = JP AND NOTE ERR 
BUP*TBLIO1 CK ALL CHAN 
ENTAY*AUERDS DISPLAY ERR 
ENTAL*ALERDS DISPLAY ERR 
JPAUNZ*LOKt5 JP IF ERR 


JPALNZ*LOK+t+4 JP IF ERR 


PAGE 


ADDRESS 


10066 
10067 


10070 
10071 


10072 
10073 
10074 
10075 
10076 
10077 
10100 
109101 


10102 
10103 
10104 
19105 
10106 
10107 
10110 
10111 


10112 
10113 
10114 
10115 
10116 
10117 
1gl2n 
10121 


10122 
10123 


0007 
INSTRUCT 
5050 20 
5050 40 
34 7617 
34 0047 
00 anno 
70 = ON72 
44“ 86603 
GO 6467 
4O 6470 
40 6602 
76 5710 
13 0090 
10 6455 
04 O111 
44 0111 
04 O113 
44 O113 
04 O115 
44 0115 
5021 0 
76 5546 
5022 90 
76 5555 
5023 90 
76 5564 
73 «600191 
10 6467 
12 6470 
62 0127 
63 0127 


COG-V 


SEQNO 


G00315 
000316 
000317 
000326 
000321 


G00322 
VONS25 
000324 
000525 
000326 
000327 
000330 
000331 


000332 
000353 
000334 
000335 
000336 
000337 
000340 
OOO341 


00034e 
000345 
000344 


000345 © 


000346 
090347 
000350 
000351 


000352 
000353 


LABEL 


102 


TBLIO2 


STATEMENT 


ENTAU*FAULTI 
JPAUZ*LOKt4 
ENTAU*AUERDS RESET ERR DISPLAY IN Ail 
RUP*DISPOC DIS ON C 

STOP ERR STOP 


NO ERR JP 


IJUP*IOl EXIT 


RESERV*¥l 

O*0 ENTRY 

ENTALK*I02 

STRAL*IFAULT 

STRSR¥*¥KEEP SAVE SR 

ENTSR¥*10 REF BANK 0 

CL¥*O15 ZERO RTC INCR REG 
ENTALK*0450 450 EQU DLY COUNT 
ADDALK*7776 

JPALNZ*LOK—1 DELAY FOR 1/1024 SEC 
ENTAL*015 DID RTC INCR? 


JPALZ*KEEP NOs JP OUT 


ENTALK*0450 CK FOR 2ND TIME INCR 
ADDALK*7776 

JPALNZ*LOK=1 

ENTAL*015 DISPLAY RTC 

STOP*40 ERR STOP 

ENTSR*0 REACT SR CURRENT 8ANK 
RJP*STCWAR JP TO SET ALL Cw 
CL¥AUERDS ERR STR LOK 
CL¥ALERDS DO 

CL*¥FAULTI 

RJP*REICR RESET ICR PER INSIZE 
ENTALB*CHTBL ENT CHAN NO 


ENTAU*U12MSK 777700 


PAGE 


ADDRESS 


10124 
10125 
10126 
10127 
10130 


10131 
10132 
10133 
10134 
10135 
10136 
19137 
10140 


10141 
10142 
10143 
10144 
10145 
10146 
10147 
10159 


10151 
10152 
10153 
10154 
10155 
10156 
10157 
101690 


10161 
10162 


onn8 
INSTRUCT 
10 6692 
60 0131 
10 6467 
76 5413 
5056 40 
55 0072 
o00nnnN 
00 on000 
70 0133 
44 6603 
75 0153 
5073 10 
40 Onis 
70 0450 
71 7776 
63 0142 
12 0015 
61 0153 
70 0u50 
7i T7776 
63 O147 
12 Onis 
5056 40 
5073 oo 
76 Savy 
40 6467 
4D 6470 
40 6602 
76 5767 
13. Onno 


10 64655 


Cov 


SEQNO 


000354 
000355 
000356 
000357 
000360 


00036) 
000362 
000363 
000364 
000365 
000366 
000367 
000370 


000371 
000372 
000373 
000374 
000375 
000376 
000377 
000400 


000401 
000402 
000403 
000404 
000405 
000406 
000407 
000410 


000411 
VO04le 


LABEL 


FFID 


~ SKPITIN*®XX 


STATEMENT 
SLSU*FFID MOD CHAN 
STRAL*FFID AND RESTR 
SLSU*FFID+4 MOD CHAN 
STRAL*FFID+4 AND RESTR 
STRAL*FFOD=2 po 
SLSU*FFOD-3 MOD CHAN 
STRAL*FFOD=3 AND RESTR 
SLSU*FFOD MOD CHAN 
STRAL*FFOD AND RESTR 
SLSU*FFOD+4 MOD CHAN 
STRAL*FFOD+4 AND RESTR 
STRAL*FFEF=2 DO 
SLSU*FFEF@3 MOD CHAN 
STRAL*FFEF=3 AND RESTR 
SLSU*FFEF MOD CHAN . 
STRAL*FFEF AND RESTR 
SLSU*FFEF +4 MOD CHAN 
STRAL*FFEF+Y4 AND RESTR 
STRAL*FFEFAtL al!) 
SLSU*FFEFA MOD CHAN 
STRAL*FFEFA AND RESTR 
SIN*XX SET ACT CHAN K 


ENTAU*CHAN+16 040000 

RUP*DELAY ALLOw TIME FOR FALSE IDR+IDA 
RUP*REQACK JP TO CK CONST REQ OR ACK 
SKPTIN*®XX SKP AND NOTE ERR IF INACT 
JP*LOKt2 CONT IF ACT 

RJUP*RCORDI NOTE ERR 


INSTP#*XX TERM IN 


SKP IF INACT AND CONTINUE 


RJP*RCORDI NOTE ERR 


PAGE 


ADDRESS 


10163 
10164 
10165 
10166 
10167 


10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 


10200 
10201 
10202 
10203 
10204 
10205 
10206 
10207 


10210 
10211 
190212 
19213 
10214 
16215 
10216 
10217 


10220 
10221 


onng 
INSTRUCT 
04 0210 
44 0210 
04 0214 
44 0214 
44“ 0220 
04 0217 
G4 0217 
04 0222 
44 0222 
04 0226 
44 0226 
u4 0232 
04 0231 
44 0231 
04 0234 
44 0234 
04 0240 
44 0240 
44 0244 
04 0243 
G4 0243 
5001 90 
10 6551 
76 0302 
76 0264 
5021 0 
34 0217 
76 5546 
5015 0 
5021 10 


76 $545 


VoC-P 


SEQNO 


LASEL 


000413 FFOD 


000414 
000415 
000416 
000417 


000420 
000421 
000422 
GO0423 
000424 
000425 
000426 


000427 


000430 
000431 
000432 
000435 
000434 
000435 
000436 
000437 


000440 
OOO44l 
O0044e 
000445 
O00444 
000445 
000446 
000447 


000450 
000451 


FFEF 


FFEFA 


STATEMENT 


SOUT *XX NOTES SIMILAR TO FFID ABOVE 
ENTAU*CHANt16 040000 

RUP*DELAY DELAY FOR FALSE IDR+IDA 
RJP*REQACK CK FALSE ODR+0DA 
SKPOIN*XX 


JP*LOKt2 

RJP*RCORDO 

OUTSTP*XX 

SKPOIN*XX 

RJP*RCORDO 

SEXF*XX 

ENTAU*CHAN+4+16 040000 

RJP*DELAY DELAY FOR FALSE YDR*tIDA 


RJP*REQACK 
SKPFIN*XX 
JP*FLOKt2 
RJP*RCORDF 
EXFSTP*XX 
SKPF IN*®XX 
RJP*RCORDF 
BJP*TBLIO2 CK ALL CHAN 


CK FALSE EFRt+EFA 


RJUP*STALAC SET IDe OD» AND EF ACT 
ENTAU*AUERDS DO 

ENTAL*ALERDS D0 
JPAUNZ*LOKt5 JP IF ERR 
JPALNZ*LOKt4 DO 
ENTAU*FAULTI : 
JPAUZ*¥LOK+4 NO ERR JP 
ENTAU*AUERDS REDISPLAY ERR 
RUP*#DISPOC DISPLAY ON C 


STOP ERR STOP 


PAGE 


ADDRESS 


10222 
10223 
10224 
10225 
10226 


10227 
10230 
10231 
10232 
102353 
10254 
10235 
10236 


10257 
10240 
10241 
10242 
10243 
10244 
10245 
10246 


10247 
10250 
10251 
19252 
10253 
10254 
10255 
10256 


10257 
10260 


0n10 
INSTRUCT 
5002 00 
10 6551 
76 03N2 
76 0764 
5022 00 
34 0231 
76 5555 
5016 00 
5022 00 
76 5555 
5003 900 
10) «66551 
76 0302 
76 0264 
9023 a0 
34 0243 
76 5564 
5017 90 
5023 00 
76 S564 
73 0161 
76 5523 
10 6467 
12 6470 
62 0257 
653 0257 
10 66N2 
60 0261 
10 6467 
76 5S4ul3 


5056 40 


SCC~P 


SEQNO 


000452 
000455 
000454 
000455 
000456 


000457 
000460 
000461 
000462 
000465 
000464 
000465 
000466 


000467 
000470 
000471 
000472 
000473 
000474 
000475 
000476 


000477 
000500 
000501 
090502 
000503 
000504 
000505 
000506 


000507 
000510 


LABEL 


REQACK 


REQA 


BB 


DELAY 


10 


Re) 


TBLIO3 


STATEMENT 
RUP*TERMAL 
IUP*I02 EXIT 
RESERV*1 
0*0 ENTRY | 
STRICR*BB SAVE ORG ICR 
ENTICR*03 ACT 83 
ENTBK*373 B38373 
ENTSR*10 | 
ENTALB*¥04 CK CONTR AREA 
ENTSR*O 
CMAL*CKWD WERE BCW 
JPEQ*LOK+3 DISTURBED? 
ENTAU*REQACK DISPLAY RTN ENT FROM 


STOP ERR = BUF WD IN CONTR MEM CHGD 
BUP*REQA CK ALL BCWw 

ENTICR*02 REACT ORG ICR 

IUP*REGACK EXIT 

0*0 ENTRY 


LSHAU*Ol SHIFT 

JPAUP*LOK=1 DELAY RTN 

IUP*DELAY EXIT 

0*0 ENTRY 

ENTALK*I03 

STRAL*IFAULT 

CL¥*¥AUERDS CL ERR STR LOK 

CL*¥ALERDS 

RJUP*REICR RESET ICR 

ENTALS*CHTBL ENT CHAN NO 

ENTAU*U1L2MSK 777700 
 SLSU*FFRES 

STRAL*FFRES 


PAGE 


ADDRESS 


10261 
10262 
10263 
10264 
10265 


10266 
10267 
10270 
10271 
10272 
10275 
10274 
10275 


10276 
10277 
103500 
10301 
10302 
10303 
10304 
10305 


10306 
10307 
10310 
103511 
10312 
103513 
10314 
10315 


10316 
10317 


O01 
INSTRUCT 
76 5447 
55 0133 

000000 
00 on00 
72 0300 
5072 03 
36 0373 
5073 10 
13 0004 
5073 00 
02 6445 
61 0277 
10 0264 
5056 40 
73 0270 
5072 02 
55 0264 
00 on00 
5045 01 
64 0303 
55 0302 
00 0000 
70 0306 
44 6603 
40 6467 
40 6470 
76 5767 
13 0n00 
10 6455 
04 0325 


4&4 90325 


966-P 


SEQNO 


000511 
000512 
VOOG513 
000514 
VOO5L5 


UVU0516 
000517 
000520 
000521 
UG0522 
000525 
G00524 
000525 


UVO0526 
V00527 
000530 
000531 
00053e 
000535 
000534 
000535 


000536 
000537 
000540 
000541 
Q00542 
000543 
QVOO544 
000545 


VO0546 
000547 


LAiEL 


FFRES 


T0456 


STATEMENT 


SLSU*FFRESt1 
STRAL*FFRESt1 
STRAL*FFRES+t7 
SLSU*FFRES+4 
STRAL*FFRES+4 


SRSM*XX SET RSM FF CHAN K 
SKPNR*¥XX SKP IF RSM FF NOT SET 
JP*LOK+7 OK CONTINUE 
RIP*RCORDI NOTE ERR 

EXFOV*XX : 
ENTAU*CHANtS 

RJP*DELAY ALLOW TIME FOR ACK 
SKPNR*#*¥XX SKP IF FF NOT SET 


RUP*RCORDO NOTE ERR 
BUP*TBLI03 JP AND DO ALL CHAN 
ENTAU*AUERDS DISPLAY ERR 
ENTAL*ALERDS DISPLAY ERR 
JPAUNZ*LOKt2 ERR JP 
JPALZ*LOKt+2 JP OUT IF NO ERR 
STOP ERR STOP 

IJUP*I0Q3 EXIT 


RESERV¥*1 

0*0 ENTRY 

ENTALK*I0456 

STRAL*IFAULT 

ENTALK*1500 PRESTR 
STRADR*CKTERGS43 INSTP 
STRADR¥ECKTERS5S+#+1 SKPIIN 
ENTALK*2100 AND 
STRADR*CKTERGFHY SIN 
STRADR*FCKTERS#+2? F CODES 


PAGE 


ADDRESS 


10320 
10321 
10322 
10323 
10324 


10325 
10326 
10327 
10339n 
10331 
10332 
10333 
10334 


10335 
10336 
10337 
10340 
10341 
10342 
10343 
10344 


10345 
10346 
10347 
10350 
10351 
10352 
19353 
10354 


10355 
10356 


0012 
INSTRUCT 
N4 Q3°6 
YG 0326 
GG 0334 
04 QO%R41 
44 0331 
5020 0 
5057 90 
34 0336 
76 5546 
5027 no 
10 6540 
76 O3N2 
5057 90 
76 5555 
75 O314 
10 6467 
12 6470 
62 0343 
61 0344 
5056 40 
55 0396 

000090 
00 Odonng 
70 Q346 
G4 6693 
70 159090 
74 Q04U33 
74 0443 
70 2190 
74H Q434 


74 = O444 


LOS? 


SEQNO 


QU055uU 
VO0551 
000552 
000553 
000554 


000555 
000556 
000557 
090560 
000561 
000562 
000563 
000564 


000565 
000566 
000567 
000570 
G00571 
000572 
000573 
QU0574% 


VOO575 
000576 
000577 
000600 
000601 
00060e 
0006035 
000604 


000605 
000606 


LABEL 


T06 


TBL106 


STATEMENT 


ENTALK*100 IN 
STRADR*CKTERS RTN 
RJP*I06 RUN I04 
ENTALK*1600 PRESTR 


STRADR*CKTERG+3 OUTSTP 
STRADR*CKTERS+1 SKPOIN 
ENTALK*2200 AND 
STRADR*CKTERG+4 SOUT 
STRADR*CKTERS+2 F CODES 
ENTALK*200 IN 
STRADR¥CKTERS RTN 


RJP*IT06 RUN I05 
ENTALK*1700 PRESTR 


STRADRACKTERG+3 EXFSTP 
STRADR*CKTERS+1 SKPFIN 
ENTALK*2300 AND 
STRADR*CKTERG+4 SEXF 
STRADR*CKTERS+2 F CODES 
ENTALK*3500 IN 
STRADR¥CKTERS RTN 
RJP*I06 RUN 106 


TUP*I0456 EXIT 

0*0 ENTRY 

ENTALK*I06 

STRAL*IFAULT 

CL¥*¥AUERDS CL ERR 
RJUP*STALAC ACT ALL CHAN 
RJP#*REICR RESET ICR 
ENTALB*CHTBL ENT CHAN NO 


ENTAU*U12MSK 777700 
SLSU*CKTERY+3 SET HI CHAN +0 


PAGE 


ADDRESS 


10357 
10360 
10361 
10362 
10363 


10564 
10365 
10366 
10367 
10370 
10371 
10372 
10373 


10374 
10375 
19376 
10377 
10409 
10401 
10402 
10403 


10404 
10405 
10406 
10407 
10410 
19411 
10412 
10413 


10414 
10415 


0013 
INSTRUCT 
70 0190 
74 O44e 
76 QO405 
70 1600 
74 0433 
74 0443 
70 220 
74 0434 
74 0444 
70 O2n0 
74 O44e 
76 0405 
70 17N0 
74 0433 
74 0443 
70 2300 
74 0434 
74 0444 
70 0390 
74 O44 
76 O4NS 
55 0346 
00 o0n0 
70 0495 
G4 6693 
GO 6467 
76 5523 
76 5767 
13 0790 
10 6455 
N04 0433 


86o-P 


SEQNO 


000607 
GO061U 
OU0611 
000612 
000615 


QVO0614 
000615 
000616 
000617 
000620 
000621 
000622 
000623 


v00624 
000625 
000626 
000627 
000630 
000631 
0006352 
000635 


000634 
000635 
000656 
000637 
000640 
000641 
000642 
000645 


000644 
000645 


LABEL 


CKTERY 


CKTERS 


10789 


STATEMENT 
STRAL#CKTERY+3 IN RTN 
SLSU*CKTERS DO 
STRAL*CKTERS 
SLSU*CKTERS+2 DO 
STRAL#CKTERS+2 
BUP*¥LOK*F1 DECR Be 
ENTALB*¥CHTBL ENT CHTBL=1 
SLSU*CKTERS*1 LOWER CHAN 
STRAL#*CKTERS#+1 IN RTN 
ENTAU*UL2MSK REENT MSK = RCORDI MAY CHNG IT 


ENTALB*CHTBL ENT CHAN NO 
SLSU*LOK+3 

STRAL*LOK+2 

EXFSTP*XX TERM HI CHAN 


SKPF IN*XX CK A LOWER CHAN FOR TER™ 
JP¥*LOKt2 OKe CONTINUE 

RJP*RCORDI RCD ERR 

BUP*CKTER4=1 CK ALL LOWER CHAN 
ENTAU*AUERDS DISPLAY ERR STR LOK 
ENTAL*LOKt1 DISPLAY FUNCTION IF ERR 
SEXF *XX ACT HI CHAN 


EXFSTP#*XX TERM A LOWER CHAN 

SKPF IN*XX CK HI CHAN FOR TERM 
JP¥LOK+2 OKe CONTINUE 

STOP *40 ERR STOP#HI CHAN TERMNTD 
JPAUZ*LOKt+2 NO ERR JP OUT 
STOP*40 ERR STOP=-LO CHAN TERMNTO 
RJP*TERMAL 

TUP*I06 EXIT 


RESERV*1 
0*0 ENTRY 


PAGE 


ADDRESS 


104156 
10417 
10420 
10421 
10422 


10423 
10424 
10425 
10426 
10427 
10430 
10431 
10432 


10433 
10434 
10435 
10436 
10437 
10440 
10441 
10442 


10443 
10444 
10445 
10446 
10447 
10450 
10451 
10452 


19453 
10454 


0014 
INSTRUCT 
G4 0433 
04 O442 
GU“_:iéi‘iN UK? 
04 0444 
44 O444 
73 0424 
13 0000 
04 0443 
44 0443 
10 6455 
13 onnO 
04 0434 
BG Q434 
5017 90 
5023 0 
34 0437 
76 5546 
73 0427 
10 6467 
12 0442 
5003 00 
5017 00 
5023 0 
34 0447 
5056 40 
60 0451 
5055 40 
76 5447 
55 o4n5s 

n0000 


00 oanng 


600-7 


SEQNO 


000646 
000647 
000650 
000651 
00065e 


000655 
Q00654 
G00655 
000656 
000657 
000660 
000661 
000662 


000663 
000664 
000665 
000666 
000667 
000676 
000671 
UO067e 


000673 
000674 
000675 
000676 
000677 
000700 
000701 
000702 


000703 
000704 


LABEL 


109 


STATEMENT 
ENTALK*I0789 
STRAL*IFAULT 
ENTALK*100 PRESTR 
STRADR*CKACTYU+3 SIN 
STRADR¥CKACT541 SKPIIN 
ENTALK*2100 AND 
STRADR*¥CKACTQ4+4 INSTP 
STRADR*CKACTS+#2 F CODES 
ENTALK*1500 IN 
STRADR*CKACTS RTN 
RJP*I09 RUN 107 
ENTALK*200 PRESTR 
STRADR¥CKACTKF3 SOUT 
STRADR*CKACT541 SKPOIN 
ENTALK*2200 AND 
STRADR*CKACT4H4+4 OUTSTP 
STRADR*CKACT5+2 F CODES 
ENTALK*1600 IN 
STRADR*CKACTS RTN 
RJP*I09 RUN 108 
ENTALK*300 PRESTR 
STRADR*¥CKACTY+3 SEXF 
STRADR*CKACT5S+1 SKPFIN 
ENTALK*2300 AND 
STRADR*CKACTY+4 EXFSTP 
STRADR*CKACTS+2 FF CODES 
ENTALK*1700 IN 
STRADR*CKACTS RTN 


RJUP*I09 RUN IO09 


IUP*10789 EXIT 
0*0 ENTRY 


PAGE 


ADDRESS 


10455 
10456 
1N457 
10460 
1046) 


10462 
10463 
10464 
10465 
10466 
10467 
10470 
10471 


10472 
10473 
10474 
10475 
10476 
10477 
190500 
10501 


10502 
10503 
10504 
10505 
10506 
10507 
10510 
10511 


10512 
10513 


ON15 
INSTRUCT 
70 «0454 
G4 66N3 
70 «©0190 
74° «80540 
74 0547 
70 «62190 
74 «=O541 
74 0550 
70 861500 
7G 0546 
76 0513 
70 02ND 
74 0540 
74 0547 
70 2200 
74H 0541 
74 0550 
70 1690 
74 0546 
76 0513 
70 0300 
74 0540 
74 0547 
70 =2300 
74 0541 
74 0550 
70 1700 
7H 0546 
76 0513 
55 04854 
00 Onno 


Otc-F 


SEQNO 


000705 
000706 
000707 
000710 
000711 


000712 
000715 
000714 
Q00715 
000716 
000717 
000720 
000721 


000722 
000723 
000724 
000725 
000726 
000727 
000730 
000731 


000732 
000733 
000734 
000735 
000736 
000737 
00074U 
000741 


O0074e 
000743 


LABEL 


TBLIO9 


CKACTY 


CKACTS 


STATEMENT 


ENTALK*IO9 
STRAL*IFAULT 


CL¥*¥AUERDS CL ERR STR LOK 


RJP*TERMAL TERM ALL CHAN 
RJUP*REICR RESET ICR 

ENTALB*CHTBL ENT CHAN NO 
ENTAU*ULEMSK 777700 
SLSU*CKACT4+3 SET HI CHAN 
STRAL*CKACT4+3 NO IN RTN 
SLSU*CKACTS DO 

STRAL*CKACTS 

SLSU*CKACTS5S+2 DO 
STRAL*CKACT5+2 

BUP*LOKt1 DECR B2 

ENTALB*CHTBL ENT NEXT LO CHAN NO 
SLSU*CKACTS+4 LOWER CHAN 
STRAL*CKACTS+14 NO IN RTN 
ENTALB*CHTBL ENT CHAN NO 
SLSU*LOK+3 

STRAL*LOK+t2 

SEXF «XX SET HI CHAN ACT 
SKPFIN*®XX WAS A LOWER CHAN ACTVTD? 
RJP*RCORDI RCD ERR 

BUP*CKACTY CK ALL CHAN 
ENTAU*AUERDS DISPLAY ERR STR LOK 
ENTAL*LOK+1 DISPLAY FUNC IF ERR 
EXFSTP¥*¥XX TERM HI CHAN 

SEXF *XX ACT NEXT LOWER CHAN 


SKPFIN*®XX WAS HI CHAN ACTVTD? 


ERR STOP FALSE ACT 
NO ERR JP OUT 


STOP *4&u0 
JPAUZ*LOK+2 


PAGE 


ADDRESS 


10514 
10515 
10516 
10517 
10520 


10521 


(10522 


10523 
10524 
10525 
10526 
10527 
10530 


10531 
10532 
10533 
10534 
10535 
10536 
10537 
10540 


10541 
10542 
10543 
10544 
10545 
10546 
10547 
10550 


10551 
10552 


0016 
INSTRUCT 
70 0513 
4G 6693 
40 6467 
76 5447 
76 5767 
13 00n0 
10 6455 
04 0540 
44 0540 
04 0546 
44 0546 
04 0550 
44 0550 
73 0532 
13. 0000 
04 0547 
4u4 0547 
13 onn0 
04 O541 
u4 0541 
5003 00 
5023 90 
76 5546 
73 0535 
10 6467 
12 0546 
5017 90 
5003 00 
5023 0 
5056 40 
60 0554 


T€e-P 


SEQNO 


000744 
QO00745 
000746 
000747 
000750 


G00751 
Q00752 
000753 
000754 
000755 
000756 
000757 
000760 


000761 
6000762 
000763 
000764 
000765 
000766 
000767 
000770 


GVUO771 
000772 
0007735 
000774 
000775 
000776 
000777 
001000 


001001 
001002 


LABEL 


I01U 


TBL1O 


FUNC 


STATEMENT 


STOP¥*40 ERR STOP FALSE ACT 
IUP*I09 EXIT 

RESERV*1 

0*0 ENTRY 

ENTALK*I010 


STRAL*IFAULT 

CL*¥AUERDS CL ERR STR LOK 
CL*ALERDS CL ERR STR LOK 
RJP*REICR RESET ICR 
RJUP*TERMAL TERM IDe QODe EF 
ENTALB*CHTBL ENT CHAN NO 
ENTAU*U1L2MSK 777700 
SLSU*FUNCHL PRESTR CHAN 


STRAL*FUNC=1 
SLSU*FUNC 
STRAL*FUNC 
SLSU*FUNCH+2 
STRAL*FUNC +2 
SEXF ®XX SET EF ACT 
SKPOIN*XX CK FALSE OUT ACT 
RJP*RCURDI NOTE ERR 


NO IN RTN 


SKPTIN#*®XX CK FALSE IN ACT 
RJP*RCORDO NOTE ERR 
BJP*TBL10 CK ALL CHAN 
ENTAU*AUVERDS DISPLAY ERR 
ENTAL#*ALERDS DISPLAY ERR 
JPAUNZ*LOKt2 CK FOR ERR. 
JPALZ*LOK+t+2 CK FOR ERR 
STOP*KO ERR STOP 


~YUP*I010 EXIT 


RESERV*1 


PAGE 


ADDRESS 


10553 
10554 
10555 
10556 
10557 


10560 
10561 
10562 
10563 
10564 
10565 
10566 
10567 


10570 
10571 
10572 
10573 
10574 
10575 
10576 
10577 


10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 


10610 
10611 


0017 
INSTRUCT 
5056 40 
55 0513 

0000400 
00 anno 
70 0556 
4G 6693 
4YO 6467 
GO 6470 
76 5767 
76 Say? 
13 oaono 
10 64855 
04 0575 — 
44 0575 
04 0576 
44& 0576 
04 0690 
&& 0600 
5003 0 
5022 0 
76 5546 
5021 10 
76 5555 
73 0564 
10 6467 
12 64870 
62 0697 
61 0610 
5055 40 
55 05565 

000990 


GEG~V 


SEQNO 


001003 
001004 
001005 
VO01006 
001007 


001010 
001011 
001012 
001013 
UO1014 
001015 
001016 
001017 


001020 
001021 
001022 
001023 
001024 
001025 
001026 
001027 


001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 


G001040 
001041 


LABEL 


IQ11 


IOL1A 


IOLVLIN 


CONTH 


STATEMENT 


0*0 ENTRY 
ENTALK*IOL1 
STRAL*IFAULT 
CL*AUERDS CLEAR 
CL¥*¥ALERDS ERR 


RJP*TERMAL 
RUP*REICR RESET ICR 
ENTALB*CHTBL ENT CHAN NO 
ENTAU*U1L2MSK 777700 
SLSU*IOLLIN MOD CHAN AND 
STRAL*IO1LIIN RESTR TO RTN 
SLSU*IOLLIN+3 

STRAL¥*¥IOILINGS 


SLSU*CONTH 
STRAL*CONTH 
STRAL*1I0110U 
SLSU*CONTHt3 
STRAL*CONTHt3 
STRAL*I0110U+3 
SLSU*IOLLEF 
STRAL*IOLLIEF 


SLSU*IOLIEF+3 

STRAL#IOLLEF +3 

RJUP*CLCWAR CL CM BCW STR AREA 
IN*XX ENBL ID | 

O*CKWO+] AND STR 

O*CKWwD BUF Cw ADDR 
SKPTIN*XX SKP IF IN ACT 
JP*CONTI CONTINUE IF ACT 


ENTAL*IO11IN NOTE ERR AND DISPLAY 
OUT *XX CK ANOTHER FUNC 


TERM ID*eODeEF ALL CHAN © 


PAGE 


ADDRESS 


10612 
10613 
10614 
10615 
10616 


10617 
10620 
10621 
10622 
10623 
10624 
10625 
10626 


10627 
10650 
106351 
10632 
10633 
10634 
10655 
10656 


10637 
10640 
10641 
10642 
10643 
10644 
10645 
10646 


10647 
10650 


0018 
INSTRUCT 
00 annd 
79 =0612 
44 6603 
40 6467 
4O 6470 
76 «5447 
76 5767 
13. anno 
10 6455 
04 0642 
G4 0642 
04 0645 
G4 0645 
04 0650 
44 0650 
4G 0722 
04 0653 
44 0653 
44 0725 
04 0772 
Gy O77T2 
04 O775 
44 0775 
76 5597 
5011 90 

016446 
016445 
5021 9490 
34 0660 
12 O0f42 


5012 


0 











SEo-P 


SEQNO 


001042 
0010435 
001044 
001045 
001046 


V01047 
J01050 
001051 
001052 
0010535 
001054 
001055 
001056 


001057 
001060 
001061 
001062 
001063 
001064 
001065 
001066 


001067 
001070 
001071 
00107¢ 
001073 
001074 
001075 
001076 


001077 
001100 


LABEL 


CONTI 


NEXT 


COMPR 


STATEMENT 


O*CKWOt] 

O*CKwD 

SKPOIN*XX SKP IF IN ACT 
JP*LOKtS JP TO ERR STOP 
ENTAU*IO1ILIN DISPLAY FUNC 


STOP ERR STOP BOTH FUNC BAD 
STOP ERR STOP FIRST FUNC ONLY 


ENTALB*CHTBL ENT CHAN NO 
SLCL*KHMSK CHAN 10-17? 
JPALNZ*NEXT+#1 JP IF YES 
ENTALB*CHTBL ENT CHAN NO 
LSHAL*01 2K 

ADDALK*060 

JP*CQMPR=1 JP AND COMPARE 
ENTALB*CHTBL ENT CHAN NO 
ADDALK*7767 K~10 | 
LSHAL*0O1 2(K~-10) 

ADDALK *260 

STRAL*CCMADR SAVE TACw 
STRADR*¥LOK+2 PRESTR CM ADR 
ENTSR*10 REF STACK 0O 
ENTAL*ADR ENT TACW 
ENTSR*O0 REF CURR STACK 


CMAL*CKWDt1 TACW STORED RIGHT PLACE? 
JPEQ*LOKt6 YES» CONTINUE 

CMAL*CKWD FQU TACW? 

JPNOT*LOK+3 NO+ GO FIND 

ENTAU*IO11IN YES DISPLAY Fe Ke AND YACW 
STOP*40 ERR STOP = IACW INSTEAD OF 


 RUP*SRCHM 


REMARK TACW FOUND 


PAGE 


ADDRESS 


10651 
10652 
10653 
10654 
10655 


10656 
10657 
10660 
10661 
10662 
10663 
10664 
19665 


10666 
10667 
10670 
10671 
10672 
10673 
10674 
10675 


10676 
10677 
10700 
10701 
10702 
10703 
10704 
10705 


10706 


On19 
INSTRUCT 
016446 
016445 
5022 0 
34% 0657 
10 ©0642 
5056 40 
5056 40 
13 oonod 
52 6556 
63 0667 
13 Onno 
5046 "i 
71 06460 
34 0673 
13. o0n0 
71 7767 
5046 O1 
71 0260 
G4 6696 
74 0676 
5073 10 
12 0090 
5073 0 
02 6446 
61 0707 
02 6445 
63 0796 
10 0642 
5056 40 
76 1051 


PEC-F 


SEGNO 


001101 
001102 
001105 
001104 
001105 


001106 
001107 
001110 
OO1L11 
001112 
001113 
001114 
001115 


001116 
001117 
001120 
OO01121 
001122 
001125 
001124 
001125 


001126 
001127 
001130 
YO1131 
001132 
003133 
001134 
001135 


001136 
001137 


LABEL 


TQ0110U 


CONTO 


NEXTA 


COMPRA 


STATEMENT 


ENTAL*CCMADR 

ADDALK*01 TACW+1 FOR IACW STR ADR 
STRADR¥LOKt2 PRESTR 

ENTSR¥*10 REF STACK 0 

ENTAL*ADR ENT IACW 


REF CURR STACK 
TACW STORED RIGHT PLACE? 


ENTSR*Q 
CMAL*CKWD 
JPEQ*LOK+3 
ENTAU*IOLLIN 

STOP*40 

RJP*CLCWAR CL CM BCW STR AREA 
OUT *XxX COMMENTS SIMILAR TO 
O*CKwOtl IOLIIN ABOVE 


O*CKWD 
SKPOIN*XX 
JP*CONTO 
RUP*RCORDO 
ENTALB*CHTBL 
SLCL *KHMSK 
JPALNZ*NEXTA+1 
ENTALB*CHTBL ENT CHAN NO 


ENT CHAN NO 


LSHAL*O1 
ADDALK*040 
JP*COMPRA=1 
ENTALB*CHTBL 
ADDALK*7767 
LSHAL*01 
ADDALK*240 
STRAL*CCMADR 


STRADRELOKt2 
ENTSR*10 


PAGE 


ADDRESS 


10707 


10710 
10711 
10712 
10713 


10714 
10715 
10716 
10717 
10720 
10721 
10722 
10723 


10724 
10725 
10726 
10727 
10730 
10731 
10732 
10733 


10734 
10735 
10736 
10737 
10740 
10741 
10742 
10743 


10744 
10745 


0020 
INSTRUCT 
12 6696 
71 #oOonl 
74 O713 
5073 10 
12 0000 
5073 oOo 
02 6445 
61 O71 
10 Of42 
5056 40 
76 5507 
5012 no 

016446 

016445 
502)! 0 
34 0730 
76 5855 
13 onno 
52 6556 
63 0737 
13 onn0 
5046 O01 
71 On4o 
34 0743 
13 onno 
71 £7767 
5046 01 
71 0240 
44 6606 
74 O76 
5073 10 





Sec-P 


SEQNO 


001140 
001141 
001142 
001143 
001144 


O01145 
001146 
001147 
001150 
001151 
001152 
001153 
001154 


001155 


001156 
001157 
001160 
001161 
001162 
0011635 
001164 


001165 
001166 
001167 
001170 
001171 
001172 
001173 
001174 


001175 
001176 


LABEL 


IOLIEF 


CONTF 


STATEMENT 


ENTAL*ADR 
ENTSR*0 
CMAL*CKWDt1 
JPEQ*LOK+t6 
CMAL*CKWD 


JPNOT#LOKt3 
ENTAU*I0110U 
STOP*4Q 
RJP*SRCHM 
ENTAL*CCMADR 
ADDALK*01 
STRADR*LOK*+2 
ENTSR*10 


ENTAL*ADR 

ENTSR*0 

CMAL *CKWD 

JPEQ*LOK+3 

ENTAU*I0110U 

STOP*40 

RJP*CLCWAR CL CM BCW STR AREA 
EXF¥*17 COMMENTS SIMILAR TO 


O*CKWD+1 
O*CKwD 
SKPFIN*17 
JP*CONTF 
RJP*RCURDI 
ENTALB*CHTBL 
SLCL*KHMSK 
JPALNZ*NEXTS4+1 


TOLLIN ABOVE 


~ ENTALB*CHTBL 


LSHAL*O01 


PAGE 


ADDRESS 


10746 
10747 
10750 
10751 
10752 


10753 
10754 
19755 
10756 
10757 
10760 
10761 
10762 


10763 
10764 
10765 
10766 
10767 
10770 
10771 
10772 


10773 
10774 
10775 
10776 
10777 
11000 
11001 
11002 


11003 
11004 


0071 
INSTRUCT 
12 0000 
5073 00 
02 6446 
61 0757 
02 6445 
63 0756 
10 0722 
5056 40 
76 1051 
12 6606 
71 0001 
74 0763 
5073 10 
12 Onno 
5073 00 
02 6445 
61 0771 
10 0722 
5056 40 
76 5597 
5013 17 

016446 

016445 
5023 17 
34 1nn0 
76 5546 
13 0000. 
52 6556 
63 1007 
13 Onno 
5046 01 


9EC~P 


SEQNO 


001177 
001200 
001201 
001202 
001205 


001204 
001205 
001206 
001207 
001210 
001211 
001212 
001215 


001214 
001215 
001216 
001217 
001220 
001221 
001222 
001225 


001224 
001225 
001226 
001227 
001230 
001231 
001232 
0012335 


001234 
0012355 


LABEL 


NEXT 


COMPRC 


STATEMENT 


ADDALK*020 
JP*COMPRC=1 
ENTALB*CHTBL 
ADDALK*7767 
LSHAL*01 


ADDALK*0220 
STRAL*CCMADR 
STRADR*LOK+2 
ENTSR*10 
ENTAL#*ADR 
ENTSR*0 
CMAL*CKWDt1 
JPEQ*LOKt6 


CMAL*CKWD 
JPNOT*¥LOK+3 
ENTAU*IOLIEF 
STOP*40 
RJP*SRCHM 
ENTAL*CCMADR 
ADDALK*01 
STRADR*LOKt2 


ENTSR*10 

ENTAL*ADR 

ENTSR*0 

CMAL*CKWD 

JPEQ*LOK+3 

FENTAU*IOLLEF 

STOP*40 

BJUP*IO11A LOOP TO CK ALL CHAN 


ENTAU*AUERDS CK FOR 
ENTAL*ALERDS ERRORS 


PAGE 


ANDRESS 


11005 
11006 
11007 
11010 
11011 


11012 


11013 
11014 
11015 
11016 
11017 
11020 
11021 


11022 
11023 
11024 
11025 
11026 
11027 
11030 
11031 


11032 
11033 
11034 
11035 
11036 
11037 
11040 
11041 


11042 
11043 


0n>2 
INSTRUCT 
71 an20 
34 1013 
13 anno 
71 7767 
S046 “AL 
71 0220 
44 6606 
74 1016 
5073 10 
l2 onno 
5073 0 
02 6486 
61 1027 
02 6445 
63 1026 
10 0772 
5056 40 
76 1051 
12 6606 
71 onnil 
74 1033 
5073 10 
12 onno 
5073 no 
02 6445 
61 ini 
10 0772 
5056 40 
73 «60621 
10 6467 


12 6470 . 





LEC~-P 


SEQNO 


001236 
001237 
0012406 
001241 
001242 


001245 
001244 
001245 
001246 
001247 
001250 
001251 
001252 


001255 
001254 
G01255 
001256 
001257 
001260 
001261 
001262 


001263 
001264 
001265 
001266 
001267 
001270 
001271 
001272 


001275 
001274 


LABEL 


SRCHM 


STATEMENT 


JPAUNZ*LOKt2 
JPALZ*LOKt2 
STOP ERR STOP 
IJP*Io011 EXIT 
RESERV¥*1 


0*0 ENT 

ENTALK*O1 LOOK AT ADDR O-1 
STRADR*SRCHtL 

ENTALK*0 

STRADR*SRCHt3 

ENTICR*05 USE B3 

RJP*SRCH 

ENTALK*073 LOOK AT ADDR 4-77 


STRADR*SRCHt]1 

ENTALK*04 

STRADR*SRCHtT3 

RJP*SRCH 

ENTALK*077 LOOK AT ADDR 200277 
STRADR*SRCHt} | 
ENTALK*200 

STRADR*SRCHtS 


RJP*SRCH | 
ENTALK*077 LOOK AT ADDR 400477 
STRADR¥SRCHtI 

ENTALK*0400 

STRADR*SRCHt3 

RJP*SRCH 

ENTALK*077 LOOK AT ADDR 600-677 
STRADR*SRCH+1 


~ ENTALK*0600 


STRADR*SRCHtS 


PAGE 


ADDRESS 


11044 
11045 
11046 
11047 
11050 


11051 
11052 
11053 
11054 
11055 
11056 
11057 
11060 


11061 
11062 
11063 
11064 
11065 
11066 
11067 
11070 


11071 
11072 
11073 
11074 
11075 
11076 
11077 
11100 


11101 
11102 


0N23 
INSTRUCT 
62 1046 
61 1047 
5056 40 
55 0612 
000000 
CO 0000 
70 «On01 
74 81120 
70 0000 
74 1122 
5072 "3 
76 1117 
70 0073 
74 1120 
70 «=600n4 
74 1122 
76 1117 
70 = 0ON77 
74 1320 
70 0200 
74 1122 
76 1117 
70 On77 
74H = 1120 
70 =0400 
74 1122 
76 1117 
70 0077 
74 1120 
70 = 06N0 


74 1122 


8EC~P 


SEQNO 


001275 
001276 
001277 
001300 
001301 


001302 
001305 
001304 
001305 
001306 
001307 
001310 
VO13511 


001312 
001313 
001314 
001315 
001316 
001317 
001320 
001321 


001322 
001323 
001324 
001325 
001326 
001327 
001330 
001331 


001332 
001335 


LABEL 


FONDIT 


SRCH 


1012 


STATEMENT 
RJIP*SRCH 
ENTAU*UL2MSK DIS FLAG IF NOT FOUND 
STOP*40 ERR STOP = NO FIND 
LSHA*1 8D AUHBCW 
ENTAL*SRCHM MAIN P 
STRAL*FAULTI | 
RJP*DISPOC CRADR IN MAIN PROG 
ENTAL*SRCHt+3 
SLCL*¥L12MSK 
ENTSR¥*10 | 
ADDAL*03 ALRADDR OF BCW FOUND 
STOP*4u0 ERR STOP 
0*0 ENTRY 
ENTBK*XX B+(LOK+2) 4HIUST ADR SRCHD 
ENTSR#10 REF BANK Q 
ENTALB*ADR LOWEST ADDR BEING SEARCHED 
ENTSR¥*¥00 REF CURRENT BANK 
CMAL*CKWD IACw? 
JPEQ*FONDIT YES JP 
CMAL*CKWD+1 NOs TACW? 
JPEQ*FONDIT YES JP 


BUP*LOK=7 NO* CK REST OF THIS GROUP 


IJP*SRCH EXIT = NOT FOUND IN THIS GROUP 
0*0 ENTRY 

ENTALK*I012 

STRAL*IFAULT 

RJP* JMPRD FIND NON=JMPRD CHAN 

RJP*REICR 

RJIP*CLCWAR CL 04-677 

ENTALK*100 STORE 


STRAL*MNAREA RJUPS 


PAGE 


ADDRESS 


11103 
11104 
11105 
11106 
11107 


11110 
11111 
11il2 
11113 
11114 
11115 
11116 
11117 


11120 
11121 
1il2e 
11123 
11124 
11125 
11126 
11127 


11130 
11131 
11132 
11133 
11134 
11135 
11136 
11137 


11140 
11141 


0024 
INSTRUCT 
76 1117 
10 6455 
5056 40 
5047 22 
12 1051 
GQ 6602 
76 54i3 
j2 1122 
52 6612 
9073 10 
14 Onn3 
5056 40 
00 0000 
36 0000 
9073 10 
13 o0n0 
5073 10 
02 6445 
61 1106 
02 6446 
61 1196 
73 #1121 
55 1117 
00 onno 
70) =61132 
44 6603 
76 5710 
76 5767 
76 55N7 
70 0100 


44 6557 





6EC-P 


SEQNO 


001334 
001335 
001336 
001337 
001340 


001341 
001342 
0013435 
001344 
001345 
001346 
001347 
001350 


001351 
001352 
001355 
001354 
001355 
001356 
001357 
001360 


001361 
001362 
001363 
001364 
001365 
001366 
001367 
001370 


001371 
v01372 


LABEL 


IO12A 


STATEMENT 
ENTALK*300 IN 
STRAL*MNAREA41 EXT 
ENTAL*RUPEI1 INT 
STRAL*MNADR ENTRANCE 
RJP*CMRUP AREA 100-117 AND 300-317 
ENTALK*120 PRESTORE 
STRAL*MNAREA RJP 
ENTALK*320 IN EF MON 
STRAL*MNAREA+41 INT ADDR 
ENTAL*RUPEF 
STRAL*MNADR 
RJP*CMRUJUP 
ENTALK*140 PRESTORE 
STRAL*MNAREA RUP 
ENTALK*340 IN OUT MON 
STRAL*MNAREA]1 INT ADDR 
ENTAL*RJPOUT 
STRAL*MNADR 
RJUP*CMRUP 
ENTALS*CHTBL ENT CHAN NO 
ENTAU*UL2MSK 777700 
SLSU*EXFFCK MOD CHAN AND 
STRAL*EXFFCK RESTR TO RTN 
SLSU*EXFFCK+3 
STRAL*EXFFCK+3 
STRAL*CKOUT+*#5 
SLSU*EXFFCK+7 
STRAL¥EXFFCK4+7 
STRAL*CKOUTT+10 
SLSU*CKCDM 


STRAL*CKCDM 


PAGE 


ADDRESS 


11142 
11143 
11144 
11145 
11146 


11147 
11150 
11151 
11152 
11153 
11154 
11155 
11156 


11157 
11160 
11161 
11162 
11163 
11164 
11165 
11166 


~11167 


11170 
11171 
11172 
11173 
11174 
11175 
11176 


11177 


(11200 


0925 
INSTRUCT 
70 0300 
4G& 6560 
12 5366 
Y& 6561 
76 5425 
70 «60120 
44 6557 
70 0320 
4G 6560 
12 5777 
44 6561 
76 5425 
70 0140 
44 6557 
70 0340 
4G 6560 
12 6005 
4G 6561 
76 5425 
13 oO0n0 
10 «©6455 
048 1215 
G4 1215 
04 1220 
4G 1220 
44 1265 
04 1224 
44 1224 
44 1301 
O48 1397 
G4 1307 


OVe-F 


SEQNO 


0013573 
001374 
001375 
001376 
0013577 


001400 
001401 
001402 
v01403 
001404 
001405 
001406 
001407 


001410 


YO1411 - 


001412 
001413 
001414 
001415 
001416 
001417 


001420 


001421 


001422 
001423 


001424 
001425 
001426 


001427 
001430 


LABEL 


EXFFCK 


CKADRR 


STATEMENT 
SLSU*CKCDM+3 
STRAL*CKCDM+3 
SLSU*CKCDMt+7 
STRAL*CKCOMt+7 
SLSU*CKADRR 
STRAL*CKADRR SKPNR 
STRAL*CKADRR+4 SKPNR 
STRAL*CKOUTT SKPNR 
STRAL*CKOUTT+5 SKPNR 
SLSU*CKADRRt2 
STRAL*CKADRR SRSM 
STRAL*CKOUTT+2 SRSM 
EXF*XX DO EF ON HI CHAN 
O*CKwOt1 STORE 
O*CKwd BCW 
EXFOV*XX FORCE 
ENTAU*CHANt+16 040000 
LSHAU*0O1 
JPAUP*LOK=1 ALLOW TIME FOR TERM 


SKPF IN#*XX DID BUF TERM? 
JP*LOK+4 NOe CONTINUE 


RJP*BEQUZ0 CK BHO CKT 
ENTAL*LOK=3 DISPLAY F AND CHAN 
STOP *40 ERR STOP 


REMARK*RECOGNITION OF DUAL IS IDENTIFIED ON C REGS 


SKPNR*¥XX WAS RESUME RESET? 
JP*LOKT5 YES~CONT 

SRSM*XX NO=-TRY PROG SET 
ENTAL*LOK+1 DISPLAY CHAN 
SKPNR*¥XX DID PROG RESET WORK? 


PAGE 


ADDRESS 


11201 
11202 
11203 
11204 
11205 


11206 
11207 
11219 
11211 
1i2i2 
11213 
11214 
11215 


11216 
11217 
11220 
11221 
11222 
11223 
11224 
11225 


11226 
11227 
112390 


11231 
11232 
11253 


112354 
11235 


0N26 
INSTRUCT 
04 1312 
G4“ 1312 
04 1316 
G4 1316 
0G 1231 
44 1931 
G& 1235 
G“GQo41271 
4G 1276 
04 1233 
44 461031 
W4 1273 
5013 90 
016446 
016445 
5027 00 
10 6551 
5045 ol 
64 1222 
5023 00 
34 1231 
76 1327 
12 1224 
5056 40 
5057 00 
34 1280 
5020 n0 
12 1235 


5057 90 


The-v 


SEQNO 


001431 
001432 
001433 
001434 
001435 


001436 
U01437 
001440 
001441 
001442 
00614435 
001444 
001445 


001446 
001447 
001450 
001451 
001452 
001453 
001454 
001455 


001456 
001457 
001460 
001461 
001462 
001463 
001464 
001465 


001465 
001457 


LABEL 


CKADR 


CKOUTD 


CKOUT 


CKOUTT 


STATEMENT 


STOP *40 YES@ERROR STOP 
STOP*40 NO-ERROR STOP 
ENTALB*CHTBL ENT CHAN NO 
SLCL*KHMSK CHAN 10-17? 
JPALNZ*CKOUTD JP IF YES 


ENTALB*CHTBL ENT LO CHAN NO 
LSHAL*0O1 2K 
ADDALK*21 CONTR MEM ADDR 2137 


JP*CKOUTD+4 JP AND COMPARE 
ENTALB*CHTBL ENT HI CHAN NO 
ADDALK*7767 K-10 

LSHAL*01 2(K=10) 

ADDALK*221 CONTR MEM ADDR 221°237 


STRADR¥LOKt+2 
ENTSR¥*10 


SAVE CACW ADDR 

REF STACK 0 

ENTAL*ADR ENT CACW 

ENTSR*0 REF CURR STACK 
STRAL*CCMADR SAVE BCw 

CMAL*CKwWD WAS CACW CHNGD AT ALL? 
JPEQ*SRCHCM NO» SRCH CM 
CMAL*«CKwDt1 YESe WAS IT INCR? 


JPEQ*LOKt+2 YESe CONTINUE 
STOP*40 NO» STOP 

EXFOVy*XxXX 

ENTAU*CHAN+16 

LSHAU*01 

JPAUP*LOK=1 : 
SKPNR*¥XX WAS RESUME RESET? 
JP*LOK+7 YES-CONT 

SRSM*EXX NO=TRY PROG SET 


ENTAL*LOK+2 DISPLAY CHAN 


PAGE 


ADDRESS 


11256 
11237 
11240 
11241 


0027 
INSTRUCT 
5056 40 
5056 40 
13. onno 
52 6556 
65 1247 
13 9090 
5046 41 
7i On?! 
34 1253 
13. Onno 
71 #47767 
5046 1 
71 0221 
74 1255 
5073 10 
12 00n0 
5073 0 
4G 666 
02 6445 
61 6021 
O02 6446 
61 1265 

. 5056 40 
5027 0 
10 6551 
5085 ”1 
64 1267 
5057 90 
34 13091. 
5020 40 
12 1276 


Che-F 


SE QNO 


001470 
001471 
Y0147e 
001473 
001474 


001475 
001476 
001477 
001506 
001501 
001502 
001503 
001504 


001505 
001506 
001507 
001510 
001511 
001512 
001513 
O01514 


001515 
001516 


- 001517 


001520 
001521 
001522 
001523 
001524 


001525 
001526 


LABEL 


CKCOM 


BEQUZO 


STATEMENT 
ENTAU*NTOSTD DISPLAY STD1I21B8/NTOS 1219 FLAG 
SKPNR*¥XX DID PROG RESET WORK? 
STOP*«4Q YES~ERROR STOP 
STOP*40 NO=-ERROR STOP 
SKPF IN*®XX TERMINATE? 
JP*CKCDM NO | 
BUP*I012+5 YES» CK ALL CHAN 
RJP*BEQUZO0 
IJP*1I012 EXIT 
RESERV*1 | 
OUT*XX DO OUT TO CK FOR CDM 
O*CKwD+3 
O*CKwOt3 
OUTOV*XX FORCE 
ENTAU*CHAN+16 
LSHAU*01 DELAY 
JPAUP*LOK=1 
SKPOIN*XX ACTIVE? 
JP*LOK+S YES 
STOP*40 NO» STOP 
ENTAL*CCMADR EF/COM BUF CONT REG 
CMAL *CKWDt1 
JPEQ*LOKt3 — 
ENTAL*TWLV18 DSPLY NEG ALL IF 1218 MODE 
STOP*40 ERR STOP = NOT ACT CDM 
STOP*40 ERR STOP = ACT DUE TO CDM 
0*0 ENT 
SIL 
RJP*TERMAL TERM ALL ACT 
ENTAU*CHAY CL AU 
ENTALK*0O CL AL 


PAGE 


ANDRESS 


11275 
11276 
11277 
1130n 
11301 


11302 
11303 
11304 
11305 
11306 
11307 
11310 
11311 


11312 
11313 
11314 
11315 
11316 
11317 
11320 
11321 


11322 
11323 
11324 
11325 
11326 
11327 
11330 
11331 


11352 
11333 


0928 


INSTRUCT 


10 6526 
5057 no 
5056 4&0 
5056 uQ 
5023 0 


34 1307 
73 1137 
76 12327 
55 1132 
000000 
5012 nao 
016450 
016450 


5026 0 
10 6551 
5045 of 
64 1314 
5022 "0 
34 1322 
5056 40 
12 6606 


02 6446 
61 1326 
12 6472 
5056 4&0 
5056 40 
00 on0n0 
5034 no 
76 5447 


10 6527 
70 4 =6OnnO 


EVo-P 


SEQNO 


001527 
Y01530 
001531 
001532 


0015353. 


(00153 


001535 
001536 
001537 
001540 
001541 
001542 
001543 


001544 
001545 
001546 
001547 
001550 
001551 
001552 
QGO01553 


001554 
001555 
001556 
001557 
001560 
001561 
001562 
001565 


001564 
001565 


LABEL 


T0153 


STATEMENT 


EXF*Q SET UP EF BUF CHAN 0 


1*70000 CONTR wD TO CK UPPER & BITS 
1*70000 

EXFOV*0 SIMULATE REQ 

ENTAL*CHAN+t#16 DELAY 

LSHAL*01 

JPALP*LOK=1 

SKPFIN*®0 TERM? 

ENTAU* TWELVE No SET FLAG 


EXF *Q YES DO OTHER EF WITH 


0*07777 CONTR wD TO Ck LO BITS 
0*07777 

EXFOV*O 

ENTAL®CHAN+16 = DELAY 

LSHAL*01 

UPALP#LOK=1 


SKPFIN*0 TERM? 

JP*LOK +2 NO | 
JPAUZ*LOKt3S YES CK UPPER BITS FLAG 
ENTAL*BEQUZ0 ALHADR CAME FR 
STOP*40 ERR STOP 


IUP*BEQUZ0 EXIT 

0*0 ENTRY 

ENTALK*I015 

STRAL*IFAULT 

RJP*JMPRD 

RJP¥*REICR 

RJP*CLCWAR 

RJP*CLPIN CL IN STR AREA 


ENTALK*100 
STRAL*MNAREA 


PAGE 


ADDRESS 


11334 
11335 
11356 
113357 
11340 


11341 
11342 
11343 
11344 
11345 
11346 
11347 
11350 


11351 


11352 
11353 
11354 
11355 
11356 
11357 
11360 


11361 
11362 
113563 
11364 
11365 
113566 
11367 
11370 


11371 
11372 


0929 
INSTRUCT 
5013 90 
17 onoo 
17 Onno 
5027 00 
12 «65851 
S046 NI 
65 1341 
9023 0 
10 6464 
5013 90 
00 7777 
00 7777 
5027 00 
l2@ 6551 
5046 91 
65 1352 
5023 90 
34 1357 
60 1361 > 
12 1327 
5056 40 
55 1327 
00 90090 
70 1362 
44 6693 
76 5710 
76 5767 
76 5507 
76 64N2 
70 01/90 
G4 6557 


bve-F 


SEQNO 


001566 
001567 
001576 
001571 
001572 


001573 
001574 
001575 
001576 
001577 
001606 
001601 
001602 


001603 
001604 
001605 
001606 
001607 
001610 
001611 
001612 


001613 
001614 
001615 
001616 
001617 
001620 
001621 
001622 


001623 
001624 


LABEL 


TO13A 


STATEMENT 


ENTALK*300 
STRAL *MNAREA+1 
ENTAL*RJUPEI1 
STRAL *MNADR 
RJUP*CMRUP 


ENTALK*120 
STRAL*MNAREA 
ENTALK*320 
STRAL*MNAREA+1 
ENTAL*RJUPEF 
STRAL*MNADR 
RUP*CMRUP 
ENTALK*140 


STRAL*MNAREA 
ENTALK*340 
STRAL*MNAREA#] 
ENTAL*RJPOUT 
STRAL*MNADR 
RJP*CMRUP 
ENTALB*CHTBL 
ENTAU*UL2MSK 


SLSU* INBUF 
STRAL* INBUF 
SLSU*AUTFCK 
STRAL*AUTFCK 
SLSU*AUTFCKt3 
STRAL*AUTFCK#+3 
STRAL*CKOUVtTS 
SLSU*CKADRA=4 


STRAL*CKADRA=4 
STRAL*CKOUV+11 


PAGE 


ADDRESS 


11373 
11374 
11375 
11376 
11377 


11400 
11401 
11402 
11403 
11404 
11405 
11406 
11407 


11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 


11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 


11430 
11431 


0n30 
INSTRIULT 
70 0O3N0 
G4 65450 
12 5366 
YU 6561 
76 $425 
70 0120 
GQ 6557 
70 0370 
G4 6560 
12 5777 
“QU 6561 
76 §8235 
70 0140 
B4 6557 
70 0340 
G4 6560 
12 690N5 
G4 6561 
76 5425 
13 oono 
10 6455 
04 1434 
GY 1H Sy 
OG i1uKugn 
GQ «1440 
04 1443 
GQ“ aus 
Qs: 15N3 
04% i1u8e2 
GQ i1use 
GG 1597 


GvC-P 


SEQNO 


001625 
001626 
001627 
001630 
001631 


00163¢ 
001633 
001634 
001635 
001636 
001637 
001640 
001641 


001642 
001645 
001644 
001645 
001646 
001647 
001650 
001651 


001652 
001653 
001654 
001655 


001656. 


001657 
0016560 
001661 


001662 
0016635 


LABEL 


INBUF 


AUTFCK 


CKADRA 


CKQUU 


STATEMENT 


SLSU*INBUF +3 

STRAL* INBUF +3 

IN*XX SET INPUT AREA 
O*PIN 

O*PIN 


INSTP#®XX 
OUT *XX 
O*CKwDtl 
O*xCKwD 
OUTOV*XX 
ENTAU*CHANT16 
RIP*DELAY 
ENTAL*PIN 


CLR IN ACT 


JPALZ*LOK+3 
ENTAU*AUTFCK 
STOP*40 
SKPOIN*XX 
JP*LOK+S 
ENTAL*LOK=2 
STOP*40 
ENTALB*CHTBL 


WAS IDR HONORED? 
YES DSPLY F AND CHAN 
ERR STOP 


SLCL*KHMSK 


JPALNZ*CKOUU 
ENTALB*CHTBL 
LSHAL*Q1 
ADDALK*041 
JP*CKOUUTY 
ENTALB*CHTBL 
ADDALK*7767 


LSHAL*O1 
ADDALK*241 


PAGE 


ADDRESS 


11452 
11433 
11434 
11435 
11436 


11437 
11440 
11441 
11442 
11443 
11444 
11945 
11446 


11447 
11450 
11451 
11452 
11453 
11454 
11455 
11456 


11457 
11460 
11461 
11462 
11463 


11464 


11465 
11466 


11467 
11470 


OnN31 
INSTRUCT 
0G 1437 
44 1437 
501i a0 

016412 

016412 
5015 ao 
5012 no 

016446 

016445 
5026 no 
10 6551 
76 0392 
12 6412 
61 1452 
10 1440 
5056 40 
5022 00 
34 1456 
12 1452 
5056 4&0 
13 on0n0 
52 6556 
63 1465 
13 o000 
5046 Ol 
71 0041 
34  LuT7i 
13 0090 
71 7767 
5046 Ol 
7i O41 





9b0-F 


SEQNO 


V01664 
001665 
001666 
001667 
001670 


001671 
001672 
001673 
001674 


001675. 
001676 


001677 
001700 


001701 
001702 
001703 
001704 
001705 
001706 
001707 
001710 


001711 
001712 
001715 
001714 
001715 
001716 
001717 
001720 


001721 
001722 


LABEL 


CKOUV 


1014 


FCODE 


STATEMENT 


STRADR*LOKt2 
ENTSR*10 
ENTAL*ADR 
ENTSR*0 
STRAL*CCMADR 


CMAL *CKWD WAS CACW CHNGD AT ALL? 
JPEQ*SRCHCM NO»* SRCH CM 
CMAL*CKWOt1] YES* WAS IT INCR? 
JPEQ*LOK+2 YES» CONTINUE 


—STOP*4O NO» STOP 


OUTOV*XX 
ENTAU*CHANt16 
LSHAU*e01 


JPAUP*LOK<=1 

SKPOIN*XX 

JPFLOKtY JP IF NOT TERM 
BIP*IOLS+5 CK ALL CHAN 

TUP*1I013 EXIT 


RESERV*01 


ENTAU*CCMADR 
STOP *4&Q0 


0*0 ENTRY 
ENTALK*IO14 
STRAL*IFAULT 
RJP*TERMAL 
RJP*STRMEM 


TERM ALL ACT 
STR 12377 IN 1-377 


-EXF*qQ OO EF BKwD wW/CDM 


YO*CKWDA 
4&O*CKWDAtT1 


EXFOV*0 
ENTSR*10 


PAGE 


ADDRESS 


11471 
11472 
11473 
11474 
11475 


11476 
11477 
11500 
11501 
11502 
11503 
11504 
11505 


11506 
11507 
11510 
11511 
11512 
11513 
11514 
11515 


11516 
11517 
11520 
11521 
11522 
11523 
11524 


11525 


11526 
11527 


0032 
INSTRUCT 
74 1473 
5073 10 
12 Onno 
5073 no 
G4 66N6 
02 6445 
61 6021 
02 6446 
61 1593 
5056 40 
5026 0. 
10 6551 
5045 o1 
64 15095 
9022 90 
34 1514 
73° «1367 
55 1362 

000000. 
10 6606 
5056 40 
00 0On00 
70 4861516 
44 66N3 
76 5447 
76 6420 
5013 no 
GO 6451 
40 6452 
5027 n0 
5073 10 


LYG-P 


SEQNO 


001723 
001724 
001725 
001726 
001727 


001730 
001731 
001732 
001733 
001734 
001735 
001736 
001737 


001740 
001741 
001742 
001743 
OO1744 
001745 
001746 
001747 


001750 
001751 
001752 
001755 
001754 
001755 
001756 
001757 


001760 
001761 


LABEL 


DOCDM 


STATEMENT 


ENTAL*021 ENT CACW 


ENTSR*O 
STRAL*CCMADR SAVE CACW 
CMAL*CKWDA ITACw DECRMTD? 


JPEQ@*DOCDM YESe CK CDM 


CMAL *CKWDAF1 NO» WAS IT CHNGD AT ALL? 
JPEQ*LOK+4 NO» JP TO STOP 

CMAL *CKWDAt2 YESe ACT LIKE FwOD BUF? 
JPEQ*¥LOKt3 YES» JP TO STOP 


STOP*4O0 ERR STOP 

STOP*4&Q ERR STOP = IACW NOT CHG6GD 
STOP*40 ERR STOP = IACW INCRMTOD 
SKPFIN*O DID EF TERM PREMATURE? 
JP¥*LOKt2 NO CONTINUE 


JP*DSPLY YESe JP TO STOP 
OUT*0 NO*e CONTINUE 


GO*CKWD DO OUT w/CDM AND &KwWO 

4O*CKWOT1 

OUTOV*0 FORCE 

ENTAU*CHAN+16 DLY TO ALLOW TIME FOR FALSE 
RJP*DELAY TERM AND/OR EARLY CDM 

SKPOIN*0 FALSE TERM? 


JP*LOKH2 NO» CONTINUE 
JP*DSPLY1 YES 


ENTSR*10 STACK Q 
ENTAL*41 

ENTSR*0 CURR STACK | 
CMAL*CKWDA EARLY CDM? 


JPEQ*LOKt2 YES 


— JP¥LOKt+2 NO» CONTINUE 


STOP*40 ERR = EARLY COM 


PAGE 


ADDRESS 


11530 
11531 
11532 
11533 
11534 


11535 
11536 


11537. 


11540 
11544 
11542 
11543 
11544 


11545 
11546 
11547 
115590 
11551 
11552 
11553 
11554 


(11555 


11556 
11557 
11560 
11561 
11562 
11563 
11564 


11565 
11566 


0N33 
INSTRUCT 
l2 on21 
5073 0 
4G 6606 
02 64651 
61 1544 
02 6452 
61 1542 
02 6453 
61 1543 
5056 40 
5056 40 
5056 40 
5023 90 
54 1547 
54 1624 
5012 0 
40 6445 
4O 6446 
9026 00 
10 6551 
76 0392 
5022 900 
34 1560 
534 1627 
5073 10 
i2 0n4l 
5073 00 
02 6451 
61 1566 
34 1567 
5056 40 


8h2-F 


SEQNO 


O017b6e 
001763 
001764 
001765 
001766 


001767 
001770 
001771 
001772 
001773 
G01774 
001775 
001776 


001777 
002000 
002001 
002002 
002003 
002004 
002005 
002006 


002007 
002010 
002011 
002012 
OU2015 
002014 
002015 
002016 


002017 
VO2Uc0 


LABEL 


DSPLY 


STATEMENT 
QUTOV*0 
ENTAU*CHANt+16 
RUP*DELAY 
SKPOIN*0 DID COM LOAD NEW 8CWe CONT ACT? 
JIP*LOK+7 STILL ACTe CONTINUE 
ENTAL*TWLV18 INACTs CK 1218 MODE 
JPALNG¥FEXIT EXIT IF 1218 MODE (NO CpM) 
ENTSR*10 REF STACK QO 
ENTAU*20 OSPLY CDM AND OUT BCW 
ENTAL*40 
STOP*«40 1219 MODE = NO CDM 
ENTAL*TWLV18 CK 1218 MODE 
JPALP*LOK+t5 CONTINUE IF 1219 MODE 
ENTSR*10 DSPLY OUT AND CD™ 
ENTAU*20 8Cw REG AND STOP 
ENTAL*40 
STOP*40 1218 MODE BUT STILL CDM ACTION 
ENTSR*10 STACK QO 
ENTAL*41 CK IACW 
ENTSR*0 THIS STACK 
CMAL*CKWDA WAS CDM IACW MNVED? 
JPEQ#*#LOK+2 YES» CK 7ACW 
RUP*PEEK NOe FIND 8CW STR LOK 
ENTSR¥*10 
ENTAL*40 CK TACW 
ENTSR*0 
CMAL*CKWDA WAS TACW MOVED? 
JPEQ*EXIT YESe EXIT 
RJP*PEEK NOe FIND IT 
ENTSR*10 


ENTAU*20 


PAGE 


ADDRESS 


11567 
11570 
11571 
11572 
11573 


11574 
11575 
11576 
11577 
11600 
11601 
11602 
11603 


11604 
11605 
11606 
11607 
11610 
11611 
11612 
11613 


11614 
11615 
11616 
11617 
1162N 
11621 
11622 
11623 


11624 
11625 


ON34 
INSTRUCT 
5026 10 
10 6551 
76 0302 
59022 90 
34 16N2 
12 6472 
67 1632 
59073 10 
10 0020 
12 On4O 
5056 40 
12 6472 
65 1610 
5073 10 
i190 Oon20 
i2 0040 
5056 490 
5073 10 
12 Oneal 
5073 90 
02 6451 
61 1616 
76 1634 
5073 10 
12 0040 
5073 0 
02 6451 
61 1632 
76 1634 
5073 10 
10 90020 


67C-P 


SEQNO 


002021 
GO2022 
002025 
UO2024 
002025 


002026 


002027 
002030 
002051 
002032 
002033 
002054 
VU2Z055 


0020356 
002037 
002040 
002041 
002042 
002043 
VO2044 
002045 


002046 
002047 
002050 
002051 
002052 
002053 
002054 
002055 


002056 
002057 


LABEL 


DSPLY1 


EXIT 


PEEK 


CKER 


CKNORM 


COMTCW 
COMICW 


1016 


STATEMENT 
STOP *40 ERR STOP=PREMATURE TER EF 
ENTSR*10 
ENTAU*20 
STOP*40 ERR STOP=PREMATURE TERM OUT 
TJUP*I014 
RESERV*1 
0*0 
ENTICR*03 BS 
ENTSK*677 
ENTSR*10 REF STACK 0 
ENTALB*0 CK ADDR 0-677 FOR CKWDA 
ENTSR¥*10 REF THIS STACK 
CMAL*CKWDA BCW STORED HERE? 


JPEQ*CKNORM YES» CK IF THIS IS THE NORM LOK 
BUP*CKER NOre CK NEXT ADDR 

ENTAU*PEEK MAIN P 

STOP *40 CDM NOT MOVED IN Cm 


ENTAL*CKER ENT ADR BEING CKD 
SLCL*L12MSK  SAvE LO 12 BITS 
CMAL*COMICW IS ADR 21 BEING CKD? 


JPEQ*LOK*+5 IF YES*e CONTINUE 


CMAL *CDOMTCWw IS ADR 20 BEING CKD? 
JPEC*LOK+S IF YES* CONTINUE 


ENTAU*PEEK DISPLAY MAIN P 
STOP*40 

BUP*CKER CK NEXT ADR 
STOP¥*40 


0*20 CDM IACW REG CH 0 
0*21 CDM TACW REG CH 1 


—0*0 = ENTRY 


ENTALK*1I016 


PAGE 


ADDRESS 


11626 
11627 
11630 
11631 
11632 


11633 
11634 
11655 
11656 
116357 
11649 
11641 
11642 


116423 
11644 
11645 
11646 
11647 
11650 
11651 
11652 


11653 
11654 
11655 
11656 
11657 
11660 
11661 
11662 


11663 
11664 


0035 
INSTRUCT 
5056 40 
5073 10 
10 0n20 
5056 40 
55 1516 

o00NNn 
00 on90 
5072 13 
36 0677 
5073 10 
13 onno 
5073 10 
02 6451 
61 1647 
73 1640 
10 1634 
5056 40 
12 1640 
52 6612 
02 1662 
61 1657 
02 1661 
61 1657 
10 1634 
5056 40 
73° 1640 
5056 40 
00 0n20 
00 onal 
00 o0n0 
70 1663 


OS¢C-P 


SEUNO 


VOV2060 
U02061 
002062 
002065 
GO2064 


U02065 
UO2066 
VO2067 
002070 
002071 
002072 
VV2075 
002074 


002075 
002076 
002077 
002100 
002101 
002102 
002103 
002104 


002105 
002106 
QO02107 
002110 
002111 
002112 
YV02113 


002114 


002115 
002116 


LABEL 


T0100 


IO16E 


STATEMENT 


STRAL*IFAULT 
RJUP*REICR SET Be 
CL¥*¥FAULTI 
CL*EALERDS 
RUP*STINK STR STOPS IN CM 
ENTICR*02 
ENTALK#*IRUPAT 
STRADR*STRINB 
ENTALK*140 
STRADR¥*STRINA+2] 
ENTALK*340 
STRADR*STRINB-e 
RJP*STRINT STR IRJP*AURIL IN CM 


MODIFY STR INT RTN 


CHAN NO 
PRESTR CHAN NO 


ENTALB*CHTBL 
ENTAU*ULEMSK 
SLSU*IO1L6E 
STRAL*IO16E 
SLSU*IO1L6E+S 
STRAL*IO16E+3 
ENTAU*ALERDS OSPLY ERR IN CASE STINK STOP 
RIL ENBL ALL INT 


TUPET*LOK+1 
O*ITO16E 

OUT *XX 
6O*FALADR 
6O*FALADR 
OUTOV*XX 
ENTAL *CHAN*t+16 
LSHAL*01 


ENBL INT 


ALLOW TERM TIME 


JPALP*LOK=1 


RJUP#RCORDO NOTE ANY INT NOT HNRD 


PAGE 


ADDRESS 


11665 
11666 
11667 
11670 
11671 


1167? 
11673 
11674 
11675 
11676 
11677 
11700 
11701 


11702 
11703 
11704 
11705 
11706 
11707 
11719 
11711 


11712 
11713 
11714 
11715 
11716 
11717 
11720 
11721 


11722 
11723 


0036 
INSTRUCT 
44 663% 
76 5767 
40 6602 
GO 6470 
76 63346 
5072 fe 
70 6333 
74H 2hi 
70 O40 
7TH 2@uN1 
70 O340 
74 2406 
76 2373 
13 onno 
10 6455 
04 1714 
44° 1714 
04 1717 
G4 1717 
10 6470 
5030 nn 
54 1713 

011714 
S012 00 
60 776 
60 7706 
5026 0 
12 6551 
5046 O01 
65 1771 
76 5555 


TSe-yp 


SEQNO 


002117 
002120 
002121 
002122 
002123 


002124 
002125 
002126 
002127 
002130 
002131 
002132 
002135 


002134 
002135 
002136 
002137 
002140 
002141 
002142 
002143 


002144 
002145 
002146 
002147 
002150 
002151 
002152 
002155 


002154 
002155 


LABEL 


IO16A 


I016F 


10166 


10168 


STATEMENT 


BUP*I016+6 
RJUP*REICR 
RJP*CLCWAR 
RJP*STINK 
ENTALK*JPEF 


RESET B2 


STR STOPS IN CM 
STR JP IN CM 


STRADR*STRINB 

ENTALK*120 

STRADR*STRINA+2 

ENTALK*320 

STRADR*STRINB=2 

RUP*STRINT STR IRJUP*EFSIL IN CM 
RIL ENBL ALL INT | 
IJPEISLOK+1  ENBL INT 


O*IOL6F +3 
ENTALB*CHTBL 
ENTAU*U1L2MSK 
SLSU*I0166 
STRAL*1I016G6 
SLSU*I016G6+5 
STRAL*I016G645 
EXF "xx 


CHAN NO 
PRESTR CHAN NO 


60*FALADR 
60*FALADR 
ENTAU*ALERDS 
ENTAL*FAULTI 
EXF OV®XX 
SKP *0 
SKP*Q 
SKP*0 


DSPLY ERR IN CASE STINK STOP 


ALLOW TERM TIME 


RJP*RCORDF 


BUP*IQ16At2 DO ALL CHAN 


PAGE 


ADDRESS 


11724 
11725 
11726 
11727 
11730 


117351 
117352 
117353 
11734 
11735 
11736 
11737 
11749 


11741 
11742 
11743 
11744 
11745 
11746 
11747 
11750 


11751 
11752 
11753 
11754 
11755 
11756 
11757 
11760 


11761 
11762 


0037 
INSTRUCT 
73 «#1671 
76 5767 
76 5597 
76 6336 
70 «#1771 
74H 2410 
70 0120 
7H 2401 
70 0320 
74 2096 
76 2373 
5030 AC 
54 1741 

011742 
13 0000 
10 6855 
0% 1750 
G4 1750 
04 1755 
44% 1755 
$013 0 
60 7796 
60 7706 
10 6470 
12 66N2 
5027 0 
5050 0 
5050 0 
5050 00 
76 5564 


73° «1726 








oS6-P 


SEQNO 


002156 
002157 
002160 
002161 
002162 


002165 
002164 
002165 
002166 
002167 
002170 
002171 
002172 


002175 
002174 
002175 
002176 
002177 
002200 
002201 
002202 


002205 
002204 
002205 
002206 
002207 
002210 
002211 
002212 


002215 
002214 


LABEL 


JPEF 
JPEFM 


RLJPEI 


STATEMENT 


ENTAU*FAULTI DSPLY EF MON ERR 
ENTAL*ALERDS DSPLY OUT MON ERR 
JPALNZ*LOK+2 CK ERR(ouT) 
JPAUZ*LOK+2 CK ERR(EF) 

STOP*40 YES 


IJP*I016 NO = EXIT 


IUP*JPEFL 
JP*IQ016B EXIT 
RESERV#*1 

0*0 ENT 
ENTALK*RLUPEI 
STRAL*IFAULT 


RJP*HONINT CL. INT 


SIt LOKO INT 

SXL 

ENTAL*ZROMON=} PREP MON INT REG 
ENTSR*10 

STRAL*140 

STRAL*144 

ENTSR*0 

OUT*O OUT w/MON CHAN 0 


2*CKwD 

2*CKwD | 

OUT*2 OUT W/MON CHAN 2 
2*CKwDA | | 
2*CKWDA | 
OUTOV*e FORCE CHAN 2 
RIL REL LOKO 
ENTAU*CHANt#16 DELAY 


LSHAU*01 


JPAUP*LOK=1 


PAGE 


ADDRESS 


11763 
11764 
11765 
11766 
11767 


11770 
11771 
11772 
11773 
11774 
11775 
11776 
11777 


12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 


12010 
12011 
12012 
12013 
12014 
12015 
12016 
12017 


12020 
12021 


0038 


INSTRUCT 


10 66N2 
12 6470 
65 1767 
60 1770 
5056 40 


55 1663 
55 7767 
34 1762 

000050 
00 0090 
70 «1774 
44 6603 
76 6353 


5034 0 
9036 900 
12 2057 
5073 10 
44% 0140 
4G 0144 
5073 0 
5012 90 


216445 
216445 
5012 02 
2164581 
216451 
5026 2 
5030 no 
10 6551 


5045 91 
64 220 


ESc~hp 


SEQNO 


002215 
002216 
002217 
002220 
002221 


O0222e 
002223 
002224 
002225 
002226 
002227 
002230 
002231 


002232 
002235 
002234 
002235 
002236 
002237 
002240 
002241 


002242 
002243 
002244 
002245 
002246 
002247 
002250 
002251 


002252 


LABEL 


AQK 


002253 ZROMON 


STATEMENT 


CMAL *LO6EMSK WAS MON HONORED? 
JPEQ*A0K~1 YES» JP 

ITUPEI*LOK+1 NO» DOES IJPEI REL LOKO? 
O*LOK+1 

ENTAU*CHAN+16 DELAY 


LSHAU*01 

JPAUP*LOK=1 

ENTAU*ZROMON DISPLAY P 

STOP*4&Q ERR#=RIL BAD 

ENTALK*0 

OUTOV*O FORCE OTHER CHAN 
ENTAU*CHANt+16 DELAY 

LSHAU*O1 

JPAUP*LOK=1 

CMAL*LOMSK DID PREVIOUS INT KEEP LOKO? 
JPNOT*LOK+F3 JP IF YES 
ENTAU*ZROMON DISPLAY P 

STOP*40 

IJPEI*LOK+t+1 TRY IJPEI REL OF LOKO 
O*LOK+1 

ENTAU*CHAN#16 DELAY 

LSHAU*01 

JPAUP*LOK=1 

CMAL*L6MSK WAS MON HONORED? 


JPEQ#*LOKt2 YESe CONTINUE 
STOP*40 NOe STOP 


RUP*CKFORC CK FORCE LOKO OF INT 
IUP*#RLUPEI EXIT 

RESERV! 
 IRUP*ZROL 

0*0 ENT 


PAGE 


ADDRESS 


12022 
12023 
12024 
12025 
12026 


12027 
12030 
12031 
12032 
12033 
12034 
12055 
12036 


12037 
12040 
12041 
12042 
12043 
12044 
12045 
12046 


12047 


12050 


12051 
12052 
12053 
12054 
12055 
12056 


12057 
12060 


0039 


INSTRUCT 


02 6456 
61 2033 
54 2025 

012026 


10 6551 


5045 01 
64 2027 
10 2n60 
59056 40 
70 On00 
5026 90 
10 6551 
5045 1 


64 2036 
02 6456 
6353 204% 
10 2n60 
5056 40 
54 2085 

012046 
10 6551 


5045 1 
64 2047 
02 6456 
61 2054 
5056 4&0 
76 2063 
55 1774 

oo00nn0 


30 7719 
00 On0 


VSC~-P 


SEQNO 


002254 
002255 
002256 
002257 
002260 


002261 
002262 
0022635 
002264 
002265 
002266 
002267 
002270 


002271 
002272 
002275 
002274 
002275 
002276 
002277 
002500 


002301 
002302 
002303 
002304 
002305 
002306 
002307 
002310 


002311 
002312 


LABEL 


CKFORC 


STATEMENT 


ENTAL*LOMSK ENT FLAG 
IUP*ZROMON EXIT 

0*0 ENT 
ENTALK*CKFORC 
STRAL*IFAULT 


RJP*HONINT CL INT 
STL LOKO INT 
SXL , 
ENTAL*ZROMON=1 
ENTSR*10 
STRAL*144 
ENTSR*0 

OUT*O OUT CHAN 0 


PREP INT ENT REG 


O*CKWD+S 

O*CKwD 

OUT*2 QUT CHAN 2 W/MON 

2¥*CKWDA 

2*CKwDA 

OUTOV*2 FORCE CHAN 2 ONE WO W/MON 
ENTALK*0 CL AL 

RIL REL LOKO 


OUTOV*0 FORCE NON/MON CHAN MULTI=-woRD 
OUTOV*0 FORCE 2D WD 

OUTOV*0 FORCE 3D WD 

CMAL*LOMSK DID FORCES MAINTAIN LOKO? 
JPNOT*LOK+3 JP IF YES AND CONTINUES 
ENTAU*ZROMON NOe DISPLAY P 

STOP*40 

SIL LOKO INT 


RJP*HONINT CL INT 
IJP*CKFORC EXIT 


PAGE 


ADDRESS 


12061 
12062 
12063 
12064 
12065 


12066 
12067 
12070 
12073 
12072 
12073 
12074 
12075 


12076 
12077 
12100 
12101 
12102 
12103 
12104 
12105 


12106 
12107 
12110 
12111 
12112 
12113 
12114 
12115 


12116 
12117 


0040 


INSTRUCT 


12 6456 
55 2060 
00 on0n0 
70 2963 
4G 6693 


76 6353 
59034 90 
[036 00 
12 2957 
5073 10 
G&Y 0144 
5073 0 
5012 90 


016450 
016445 
5012 2 
216451 
216451 
5026 02 
70 Oon0 
29030 00 


59026 0 
2026 00 
9026 0 
02 6456 
63 2115 
10 260 
5056 40 
5034 90 


76 6353 
55 2063 


SS¢-P 


SEQNO 


002313 
002314 
002315 
002316 
002317 


002326 
002321 
002322 
002323 
002324 
002325 
002326 
002327 


002330 
0023351 
002332 
002335 
002334 
002335 
002336 
002337 


002340 
002341 
002342 
002343 
002344 
002345 
002346 
002347 


002350 
002351 


LABEL 


I015 


STATEMENT 


0*0 ENTRY 
ENTALK*I015 
STRAL*IFAULT 
CL¥AUERDS 
CL¥*ALERDS 


CL¥FAULTI 

RJUP* JMPRD 
RJUP*CLCWAR 
RJP*STINK 
ENTALK*100 
STRAL*MNAREA 
ENTALK*300 
STRAL*MNAREAF1 


ENTAL#IRJPEI 
STRAL*MNADR 
RJP*CMRJUP 
ENTALK*120 
STRAL*MNAREA 
ENTALK*3520 
STRAL*®MNAREA+t] 
ENTAL*IRJPEF 


STRAL*MNADR 
RJP*CMRJP 
ENTALK*140 
STRAL*MNAREA 
ENTALK*340 


~STRAL*®MNAREA+1 


ENTAL*IRJPOT 
STRAL*MNADR 


 RUP*CMRUP 


RJP#*REICR 


PAGE 


ADDRESS 


12120 
12121 
12122 
12123 
12124 


12125 
12126 
12127 
12130 
12151 
121352 
121353 
12154 


12155 
12156 
12157 
12140 
12141 
12142 
12143 
12144 


12145 
12146 
12147 
12150 
12151 
12152 
12153 
12154 


12155 
12156 


0041 


INSTRUCT 


00 
70 
mr 
40 
40 


40 
76 
76 
76 
70 
44 
70 
4& 


12 
a4 
76 
70 
44 
70 
44 
12 


44 
76 
70 
44 
70 
Gh 
12 
44 


76 
76 


0090 
2120 
6603 
6467 
6470 


6602 
5710 
5597 
6336 
0100 
6557 
0300 
6560 


6123 
6561 
3425 
0120 
6557 
0320 
6560 
6127 


6561 
5425 
0140 
6557 
0340 
6560 
6133 
6561 


5425 


5767 


9S2-F 


SEQNO 


00235e¢ 
002355 
002354 
002355 
002356 


002357 
002360 
002361 
002362 
002365 
002364 
002365 
002366 


002367 
002370 
002371 
00237e 
002373 
0023574 
002375 
002376 


002377 
002400 
002401 
00240e 
002405 
002404 
002405 
002406 


002407 
002410 


LABEL 


IOQ15A 


10158 


TO15C 


T1015) 


IO1S5E 


STATEMENT © 


SIL 

ENTALB*CHTBL 
ENTAU*ULOMSK 
SLSU*IO15B ~ 
STRAL*1I015B 


SLSU*TO015C 


STRAL*IO15C 


STRAL*IO15E 
SLSU*T015D 
STRAL*1I015D 
EXF *XX 
20*CKwWDB 
20*CKWDB 


DSPLY ERR IF STINK STOP 
DSPLY ERR IF STINK STOP 


ENTAL*ALERDS 
RJP*DISPOC 
EXFOV*®XX 
ENTAU*CHANt16 
LSHAU*O1 
JPAUP*LOK=1 
OUT *XX 
20*CKWwDB 


20*CKWDB 
ENTAL*ALERDS 
RUP*DISPOC 
QUTOV*XX 
ENTAU*CHANt+16 
LSHAU*s01 
JPAUP*LOK=1 
BUP*IO15A 


OSPLY ERR IF STINK STOP 
DSPLY ERR IF STINK STOP 


ENTAU*AUERDS 
ENTAL*ALERDS 


PAGE 


ADDRESS 


12157 
12160 
12161 
12162 
12163 


12164 
12165 
12166 
12167 
12170 
12171 
12172 
12173 


12174 
12175 
12176 
12177 
12200 
12201 
12202 
12203 


12204 
12205 
12204 
12207 
12210 
12211 
12212 
12213 


12214 


~—©12215 


0042 


INSTRUCT 


5034 0 
13 an00d 
10 6455 
04 2171 
G4 2171 


04 2176 


44 2176 


G44 2207 
04 2292 
4G 2202 
5013 900 
20 6454& 
20 6454 


12 6470 
76 5413 
5027 00 
10 6551 
59045 O01 
64 2200 
S012 n0 
20 6454 


20 6454 
12 6470 
76 5413 
5026 90 
10 6551 


50465 01 


64 2211 
73 «2157 


10 6467 
12 6470 


LSC-P 


SEQNO 


002411 
002412 
002413 
002414 
002415 


002416 
002417 
002420 
002421 
002422 
002425 
002424 
002425 


002426 
002427 
002430 
002431 
002432 
002433 
002434 
0024355 


002436 
002437 
002440 
002441 
002442 
002443 
002444 
002445 


002446 
002447 


LABEL 


1017 


IO17A 


STATEMENT 


JPAUNZ*LOK+5 
JPALNZ*LOK+4 
ENTAU®FAULTI 
JPAUZ*LOK+4 

ENTAU*AUERDS 


RJP*DISPOC 

STOP*4O 

RJUP*HONINT CL ALL MONITORS 
IJUP*]015 

RESERV*1l 

0*0 ENTRY 

ENTALK*I017 

STRAL*IFAULT 


CL¥*¥AUERDS 

RJUP*REICR 

RUP*STINK STR STP*41 IN Cm 

SIL SET LOKO 

SXL 

RUP*I017F SET INT ENT REG w/STOP 
ENTALB*CHTBL PRESTORE CH NO 
ENTAU*ULOMSK 


SLSU*I017B 

STRAL*I017B 
SLSU*I017B+3 
STRAL*I0178+5 
ENTICR*0O1 USE Bl 
ENTSR*10 REF STACK 0 
ENTB*02 (32) To Bl 


ENTSKB*7776 Bie] TO Bl 


ENTSR*0 REF THIS STACK 
RIP*ITOL/7F PRESET INT ENT REG 


PAGE 


ADDRESS 


12216 
12217 
12220 
12221 
12222 


12223 
12224 
12225 
12226 
12227 
12250 
12231 
122352 


12253 
122354 
12255 
12256 
12257 
12240 
12241 
12242 


12243 
12244 
12245 
12246 
12247 
12250 
12251 
12252 


12253 


12254 


00483 


INSTRUCT 


62 2223 
63 2223 
10 66N2 
60 2225 
10 6467 


76 5413 
5056 4&0 
76 6353 
55 2120 

oo00n0 
060 o0nn0 
70 =2230 
G4 6693 


4O 6467 
76 5767 
76 6336 
5034 0 


$036 00 


76 2327 
13° 00ND 
19 6455 


04 2265 
44 2245 
04 2270 
44 2270 
5072 a1 
5073 10 
32 One 
37 7776 


5073 0 
76 2327 

















89e-P 


SEQNO 


002450 
002451 
002452 
002453 
002454 


002455 
002456 


002457 


002460 
002461 
002462 
002463 
002464 


002465 
002466 
002467 
002470 
002471 
002472 
002475 
002474 


002475 
v02476 
002477 
002500 
002501 
002502 
002505 
002504 


002505 
002506 


LABEL 


1017D 


10178 


IO17E 


STATEMENT 


SIL 

SXL 
ENTALB*CHTBL 
ENTAU*U1L2MSK 
SLSU*IOL7E 


ENT NEXT LOWER CHAN 


STRAL*IOL7E 
SLSU*IO17E+3 
STRAL*IOL7E*3 

OUT *XX DO OUT w/MON 
2*CKkwDtl 
2*CKwO+l 
OUTOV*XX 
OUT*XX 


FORCE OUT ALL CHAN 
OUT wW/MONITOR 


2*CkKwOrtl 

2*CkwDOrtl 

QUTOV*XX 

ENTAL*CHAN?#+16 

LSHAL*O1 

JPALP*LOK=1 

RJUP*STINK STR STP IN CM 
ENTALK*CHANPS MODIFY STR RTN TO 


STRADR*STRINB 
ENTALK*140 
STRADR*STRINAF2 
ENTALK*540 
STRADR*STRINB=2 
RJP*STRINT LO CHAN 
ENTICR*02 
ENTALK*CHANPR 


DETECT HNRNG LO CHAN 1ST 


MODIFY STR RTN TO 


STRADR*STRINB 
RJP*STRINT 


DETECT HNRNG HI CHAN 1ST 


PAGE 


ADDRESS 


12255 
12256 
12257 
12260 
12261 


12262 


12263 


12264 
12265 


12266 


12267 
12270 
12271 


12272 
12273 
12274 
12275 
12276 
12277 
12300 
12301 


12302 
12303 
123504 
12305 
12506 
123507 
125190 
12311 


12312 
12313 


0044 
INSTRUCT 
5034 00 
5036 00 
13° Onno 
10 6455 
04 2271 
44 22971 
04 2274 
U4 2274 
5012 00 

216446 

216446 
5026 90 
5012 00 

216446 

216446 
5026 00 
12 6551 
5046 01 
65 2276 
76 6336 
70 2346 
74 2410 
70 0140 
74 2unl 
70 0340 
74 2406 
76 2373 
5072 2 
70 2340 
74 2410 


76 2373 











6S¢~P 


SEQNO 


002507 
002510 
002511 
002512 


002513 


002514 
002515 
002516 
002517 
002520 
002521 
002522 


002523 


002524 
v02525 
002526 
002527 
002530 
002531 
002532 
002533 


002534 
002535 
0025356 
002537 
002540 
002541 
002542 
002543 


002544 
002545 


LABEL 


IO17C 


TO1L7F 


CHANPR 


_CHNPRM 


CHANPS 
CHNPSM 


STATEMENT 
ENTAU*AUERDS DSPLY ERR IF STINK STOP 
RIL REMOVE LOKO 
ENTAL*CHAN#16 MON INT SHOULD Now 
LSHAL#*01 BE HONORED IN TURN 
JPALP*LOK=1 
ENTAU*AUERDS DSPLY CH NOT HON IN ORDER 
ENTSR*10 
ENTAL*®02 DSPLY UPPER CHAN 
LSHAL #11 IN ALQO9=12 
ADDAL*01 LOWER CHAN IN ALOQ=-03 
STOP*40 
—60*0 ENTRY 
ENTALK*140 STR JP IN INT ENT REG 
STRAL*MNAREA INT RTN HAS ERR STOP IN IT 
ENTALK*340 | | 
STRAL*MNAREA41 
ENTAL*RJPOUT 
STRAL*MNADR 
RJP*CMRJP 
IUP*IO17F EXIT 
IJP*CHNPRL 
ENTICR*01 
RJUP*HONINT CL ALL INT 
RJP*STINK STR STOPS IN CM 
BJUP*]I0170~-3 CK NEXT CHAN 
JP*CKERR CK IF ANY ERR 
IUP*CHNPSL 
ENTICR*O1 USE Bl 
RJP*RCORDI NO»e NOTE ERROR 
RJP*HONINT CL INTS 
RUP*STINK STR STOPS IN CM 


PAGE 


ADDRESS 


123514 
12315 
12316 
123517 
12520 


12321 
123522 
12523 
12324 
12525 
12326 
12327 
12330 


12331 
12332 
12333 
12334 
12335 
12336 
12337 
12340 


12341 


123542 
12543 
123544 
12345 
12546 


(12347 


12350 


12351 
12352 


0045 


INSTRUCT 


10 6467 
5030 90 
12 6551 
5046 91 
65 2317 


10 6467 
5073 10 
12 0002 
5046 11 
14 0001 
5056 40 
00 ONAN 
70 «0140 


44 6557 
70 0340 
44 6560 
12 6005 
44 6561 
76 5425 
55 2327 
55 7724 


5072 O1 
76 6353 
76 6336 
73 2254 
34 2354 
55 7725 
5072 41 
76 5546 


76 6353. 
76 6336 








09¢~-F 


SEQNO 


002546 
002547 
002550 
002551 
002552 


002555 
002554 
002555 
002556 
002557 
002560 
002561 
002562 


002565 
002564 
002565 
002566 
002567 
002570 
002571 
002572 


002575 
002574 
002575 
002576 
002577 
002600 
002601 
002602 


002605 
002604 


LABEL 


CKERR 


STRINT 


STRINA 


STRINB 


LSHAL#¥11 


STATEMENT 


BUP*I01/7D=3 
ENTAU*AUVERDS 
JPAUZ*LOK+6 
ENTSR¥*10 
ENTAL*02 


CK NEXT CHAN 
OSPLY ERR 
JP IF NO ERR 


DSPLY UPPER CHAN 
IN ALOQ9=12 


ADDAL*01 LOWER CHAN IN ALO0=03 
STOP#*40 ERR 


ENTICR*02 

BUP*LOKt1 DECR UPPER CHAN CNT 
ENTSR¥*10 CK IF UPPER 

ENTAL*02 CHAN EQU 


ENTSR*0 ZERO 


JPALNZ*IOL/A=3 NO 
TUP*1I017 YESe EXIT 
RESERV*1 

0*0 ENT 

ENTALB*CHTBL 

SLCL *KHMSK CHAN 10-17? 
JPALNZ*LOK+t5S YES 
ENTALB*CHTBL NO 


LSHAL*01 2k 
ADDALK*XX BASE AREA + 2K INT REG 
JP*LOK+5 


—ENTALB*CHTBL 


ADDALK*7767 K-10 

LSHAL*O1 2(K~-10) 

ADDALK *XX BASE AREA + 2(K=10) INT REG 
STRADR¥LOK+F3 


ENTAL*CHANPR 
 ENTSR#10 


PAGE 


ADDRESS 


12353 
12354 
12355 
12356 
12357 


12360 
12361 
12362 
12363 
12364 
12365 
12366 
12367 


12370 
12371 
12372 
12373 
12374 
12375 
12376 
123577 


12400 
12401 
12402 
12403 
12404 
12405 
12406 
12407 


12410 
12411 


0046 


INSTRUCT 


73 2254 
10 6467 
60 2363 
5073 10 
12 0002 


5046 11 


14 oo0Oo!1 


S056 40 
5072 Nne2 
73 «42365 
5073 10 
i2 0092 
5073 900 


63 2236 
55 2230 

000000 
00 a0n0 
15 0000 
52 6556 
63 2403 
13 Onno 


5046 O01 
71 o00n0 
34 247 
13 0000 
71 7767 
5046 n1 
71 0000 
74 2ul2 


12 2340 
5073 10 


190-PF 


SEQNO 


002605 
002606 
002607 
002610 
002611 


002612 
002613 
002614 
002615 
002616 
002617 
002620 
002621 


002622 
002625 
002624 
002625 
002626 
002627 
002630 
002631 


002632 
002655 
002634 
002635 
002636 
002637 
002640 
002641 


002642 
002643 


LABEL 


1018 


I018C 


IO18A 


10188 


STATEMENT 


STRAL*MNAREA 
ENTSR*0 
TJP*STRINT EXIT 

0*0 ENTRY 

ENTALK*I018 : 


STR INSTR IN INT ENT REG 


STRAL*IFAULT 
CL*¥AUERDS CL ERR STR LOK 
RJP*REICR RESET B PER IOSIZE 
RJP*STINK STR STOPS IN CM 
SIL LOKO INT 

SXL 
RUP*IOL7F 


ENTALB*CHTBL 


SET INT REG FOR FALSE INT 
REF PROPER CHAN TBL 


777700 | 
MODIFY INSTR PER CHAN BEING DONE 


ENTAU*UL2MSK 
SLSU*IO18A 
STRAL*IO18A 
SLSU*I018B—1 
STRAL*I018B~1 
SLSU*7018B 
STRAL*1I0188 
SLSU*7T018B+4 


STRAL*I018B+4 

OUT *XX DO OUT w/MON HI CHAN 1ST 
2*CKwD+l 

2*CKwOtl 

ENTAU®AUERDS OSPLY ERR IF STINK STOP 
OUTOV*XX FORCE QOuT 

EXP *xXX DO EF W/MON HI CHAN 1ST 


2*CKkwOrl 


2*CKwOtl 


ENTAY*AUERDS OSPLY ERR IF STINK STOP 


PAGE 


ADDRESS 


12412 
12413 
12414 
12415 
12416 


12417 
12420 
12421 
12422 
12423 


12424, 


12425 
12426 


12427 
124350 
124351 
124352 
12433 
12434 
12435 
124356 


12457 
12440 
12441 
12442 
12443 
12444 
12445 
12446 


12447 
12450 


0047 


INSTRUCT 


G4 6557 
5073 90 
55 2373 
00 00n0 
70 «2415 


4G 6693 
40 6467 
76 5767 
76 6336 
5034 00 
59036 00 
76 2327 
15 0000 


10 6455. 
04 2440 
G4 2440 
05 2444 
GQ 2444 
04 2445 
4G 2445 
0&9 2451 


44 2451 
5012 90 
216446 
216446 
10 6467 
5026 90 
5013 90 
216446 


216446 
10 6467 














AS) too 


SEQNO 


002644 
002645 
002646 
002647 
002650 


002651 
002652 
002655 
002654 
002655 
002656 
002657 
002660 


002661 
002562 
002665 
002664 
002665 
002666 
002667 
002670 


002671 
00267e 
002675 
002674 
002675 
002676 
002677 
002700 


002701 


002702 PRIBAD 


LABEL 


PRIOK 
FPRIM 


STATEMENT 

EXFOV*XX FORCE EF 
ENTAL*CHANt16 ALLOW FALSE INT 
LSHAL*01 
JPALP*LOK=1 
RJP*STINK STR STOPS IN CM 

~ ENTALK*PRIBAD MODIFY STR INT RTN TO 
STRADR*STRINB DETECT HONORING OUT LST 
ENTALK*140 
STRADR¥STRINA+2) 
ENTALK*340 
STRADR*STRINB=2 
RJP*STRINT STR IRJP*FPRIL1I IN CM 
ENTALK*PRIOK MODIFY STR INT RTN TO 
STRADR*STRING DETECT HONORING EF 15ST 
ENTALK*120 
STRADR*STRINA+2 
ENTALK*320 
STRADR*STRINB=2 : 
RUP*STRINT STR IRJP*FPRIL IN Cm 
ENTAU*AUERDS DSPLY ERR IF STINK STOP 
RIL 
ENTAL*CHANt+16 DLY TO LET MON INT IN 
LSHAL*O1 
JPALP#*LOK=1 
ENTAU*AUVERDS DSPLY ERR STR IF MON INT IGNORED 
ENTSR¥*10 
ENTAL*02 DSPLY B2 
STOP*40 ERR STOP ~ INT NOT HONORED 
IJUP*FPRIL 
JP*FPRIMI+1 
IJP*FPRIL1 


PAGE 


ADDRESS 


12451 
12452 
12453 
12454 
12455 


12456 
12457 
12460 
12461 
12462 
12463 
12464 
12465 


12466 
12467 
12470 
12471 
12472 
12473 
12474 
12475 


12476 
12477 
12500 
12501 
12502 
12503 
12504 
12505 


12506 
12507 


0048 
INSTRUCT 
5027 no 
12 6551 
5046 oO1 
65 24853 
76 6336 
70 2507 
74H = 2u10 
70 860140 
7H 2unl 
70 0340 
74H 2un6b 
76 2373 
70 «2505 
74H 2u10 
70 0120 
74 2unl 
70 0320 
74 2406 
76 2373 
10 6467 
5030 900 
12 6551 
5046 11 
65 2477 
10 6467 
5073 10 
12 o0n02 
5056 40 
55 7726 
34 2511 


55 7727 











€9C-P 


SEQNO 


002705 
002704 
002705 
002706 
002707 


002710 
002711 
002712 
002715 
002714 
002715 
002716 
002717 


002720 
002721 
002722 
002725 
002724 
002725 
002726 
002727 


002730 
002731 
002732 
002735 
002734 
002735 
002736 
002737 


002740 
002741 


LABEL 


FPRIM1 


WAITCK 


ITE INSR 
WTEINT 


CMPLKO 


~ RUP*HONINT 


STATEMENT 


RJP*RCORDI 
RJP*HONINT 
BJP*I018+5 
ENTAU*AUERDS 
JPAUZ*LOKt3 


CL INTS 

DO NEXT LOWER CHAN 
DSPLY ERRS 

EXIT IF NO ERRS 


ENTAL*I018A DSPLY F AND K 
STOP*4K&O ERR STOP 

IJP*1I018 EXIT 

RESERV¥1 

0*0 ENT = CK WAIT FUNC 
ENTALK*WAITCK 

STRAL*IFAULT 

RJP *HONINT HON INTS 


ENTAL*IEINSR 

ENTSR*¥10 REF STACK 0 

STRAL*140 IRJP*wTINTL TO OUT MON INT REG 
ENTSR*0 REF THIS STACK 

OUT*Q0 DO OUT W/MON CH O 

O*WAITCK 
2*WwAITCK 
OUTOV*0 FORCE 

WYFI WAIT FOR INT 

STOP*4Q STP IF wAIT NOT FUNC 
IJP*wTINTL 

IJP*wAITCK EXIT 

RESERV#1 

O*0 ENT 
ENTALK*CMPLKO 
STRAL*IFAULT 


SAVE FAULT ADOR 


CL INT 
STIL LOKO INT 


PAGE 


ADDRESS 


12510 
12511 
12512 
12513 
12514 


12515 
12516 
12517 
12520 
12521 
12522 
12523 
12524 


12525 
12526 
12527 
12530 
12531 
12532 
12533 
12534 


12535 
12536 
12537 
12540 
12541 
12542 


12543 


12544 


12545 
12546 


0049 
INSTRUCT 


76 5546 
76 6353 
73 2422 
10 6467 
60 2517 


12 2440 
5056 40 
55 24615 

000000 
00 on00 
70 2521 
44 6603 
76 6353 


12 2537 
5073 10 
4& 0140 
5073 00 
9012 90 
~6012521 

212521 
9026 90 


5024 "0 
5056 40 
55 7730 
55 2521 

000000 
00 On00 
70 2542 
G4 6603 


76 6353 
59034 0 


¥9C-F 


SEQNO 


vO274e2 
002743 
002744 
002745 
002746 


002747 
002750 
002751 
002752 
002755 
002754 
002755 
002756 


002757 
002760 
002761 
002762 
002763 
002764 
002765 
002766 


002767 
002770 
002771 
002772 
002773 
002774 
002775 
002776 


002777 
003000 


LABEL 


CMPINT 


EXFEIC 


STATEMENT 
SXL 
ENTAL*CMPINT=1 STR IRJUP*CMPL*CMPINT 
ENTSR*10 
STRAL*140 IN OUT MON INT REG 
ENTSR*0O 
QUT *0 OUT wW/MON CHAN 0O 
2*CKwD 
2*CKwD 
OUTOV*0 
RIL REL LOKQ | 
CMAL*LOK=1 60 TO INT RTN IF SIL OF 
JPALNZ*LOK+1 COMPARE NOT WORKGs OTHERWISE CONT 


JPALNZ*LOK+1 DLY 
STL SET LOKO 


RJP*HONINT CL INT 

IJP*CMPLKO EXIT 

RESERV*1 

IRJUP*CMPL 

O*«0 ENT 

ENTAU*LOK@=1 DSPLY FAULT ADDR 
STOP*40 ERR STOP ~ SIL COMPR BAD 
0*0 ENTRY 

ENTAL*EXFEIC FLAG THIS ROUTINE 
STRAL*IFAULT IN IFAULT/IN CASE OF FAULT 
RJP*TERMAL | 

RJP*HONINT 

RIL ENABLE INTS 

ENTICR*03 B30 TO INITIALIZE 
ENTBK*00 ERROR RECORD ROUTINE 
CL¥ALERDS 


CL*¥PLACS8 


PAGE 


ADDRESS 


12547 
12550 
12551 
12552 
12553 


12554 
12555 
12556 
12557 
12560 
12561 
12562 
12563 


12564 
12565 
12566 
12567 
12570 
12571 
12572 
12573 


12574 
12575 


12576 


12577 
12600 
12601 
12602 
12603 


12604 
12605 


0050 


INSTRUCT 


9036 00 
12 2570 
5073 10 
44 0140 
5073 00 


5012 00 
216445 
216445 

5026 00 

5030 00 

02 2560 

63 2563 

65 2564 


5034 0 
76 6353 
55 2542 

000000 
30 7711 
00 0000 
10 2571 
2056 40 


00 onnd 
12 2574 
44 6603 
76 5447 


76 6353 


9030 00 
5072 093 
36 0nN00 


40 6470 
40 4243 


S9C-P 


SEQNO 


003001 
003002 
003003 
003004 
003005 


003006 
003007 
003010 
003011 
003012 
003013 
003014 
003015 


003016 
003017 
003020 
003021 
003022 
003025 
003024 
003025 


003026 
003027 
003030 
003031 
00303e 
003033 
003054 
003035 


003036 


003037 


LABEL 


AUTS1 


ACKOUT 


AUTS 


ZAAA 


ENTAL*EIOKH@1 


STATEMENT 


RJP#*STINK 

RXL ENABLE EIS 
ENTAU*CHANt10 wAIT TO 
LSHAU*O1 RECEIVE ANY 
JPAUP*LOKel FALSE EIR/EFA 


OUT*KH SET UP TO TEST 


O*CKwOt+2 THAT IDA/ODR 
O*xCKwDt1 IS LOCKED OUT BY 
RJUP*TERMAL LACK OF OUTPUT ACTIVE 


IN*KH PREP TO SEE IF 
O*PIN ODA RATHER THAN 
O*PIN EFA IS SENT KH 
OUT*KL SET UP TO DETECT 


O*CKWD IDA RETURNED ON 

O*xCKWwD WRONG CHAN 

ENTALK*7777 RECORD ERROR IN FALSE CHAN 
ENTAL*HEIP 100+2KH 

STRADR*¥ZAAAtF2 AT PROG 

STRADR¥SOQDRP+1 ISOL ROUTINE 

ADDALK*01 101+2KH 

STRADR*CLADR+2 


STRADR*DATARQ 
STRADR*SOO0DRP+2 
ADDALK*?7775 
STRADR*¥ESDATQ 
ENTAL*HOBCP 41+2KH 

ADDALK*01 TO CHECK ODR 
STRADR*ACTLOK LOCKOUT BY ACTIVE NoT 
RJP*CLADR 


TO EXAM EI DATA | 
TO ISOL ROUTINE 

101 OR 301 +2(KH-1) 
ESI EI HANDLING 


RJP TO INT ROUTINE 
ENTSR¥*¥10 


PAGE 


ADDRESS 


12606 
12607 
12610 
12611 
12612 


12613 
12614 
12615 
12616 
12617 
12620 
12621 
12622 


12623 
12624 
12625 
12626 
12627 
12630 
12631 
12632 


12653 
12634 
12635 
126356 
12637 
12640 
12641 
12642 


12643 
12644 


Onsi 
INSTRUCT 
76 6336 
5032 00 
10 6543 
5045 91 
64 2611 
5012 no 

016447 

016446 
76 5487 
501i 00 

016412 

016412 
5012 900 

016445 

016445 
70 7777 
12 6576 
74H 2645 
74 3046 
71 0001 
74 3330 
74 2667 
74 3047 
71 7775 
74 2706 
12 6574 
71 oant 
7H 2675 
76 3326 
12 3n51 


5073 10 


990-7 


SEQNO 


003040 
003041 
005042 
0035045 
0035044 


0035045 
0035046 
003047 
003056 
003051 
003052 
003053 
003054 


003055 
003056 
003057 
003060 
005061 
0035062 
003065 
005064 


005065 
003066 
003067 
0035076 
003071 
003072 
003073 


005074 


003075 
003076 


LABEL 


EIKH 


DATARQ 


ACTLOK 


TESTAK 


STATEMENT 
STRAL*ADR AT 100+2KH 
ENTSR*00 
ENTAU*AUERDS DISPLAY FLAGS IN 
ENTAL*ALERDS CASE OF FALSE INT ENT 
EXF*KH EXFeFwDeiwD 
O*SDRPtHI1 DATA IS UP 
O*SDRP IF S00 DROPPED 
EXFoy*KH SEND EFA/EIR 
tL SHAL*00 WAIT 
LSHAU*00 TO RECEIVE 
RSHAL *00 EI KH 
RSHAU*00 NOOPS 
LSHA*00 
RSHA*00 
SKP*00 
RJP*RCORDO RECORD ERROR@EIKH NOT RCVDPO 
ENTBKB*01 ADV COUNT 
ENTSR*10 
ENTAL*ADR EXAM 101+2KH 
ENTSR*00 
JPALNZ*LOKt2 EIR(DATA) RCVD? 
RJP*RCORDO RECORD ERROR@“EIR (DATA)NOT RCVDel1 
ENTBKB*01 ADV COUNT 
ENTSR*10 
ENTAL*ADR G1 +2KHHCACW 
ENTSR*00 | 
CMAL*CKWD41 DID ODR/IDA GET THRU? 
JPEQ*LOKt2 NO= CONTINUE 
STOP*40 ERROR STOP 
SKPOIN*KL WAS IDA RETURNED ON WRONG K? 
JP*LOKt2 NO-CONTINUE 


PAGE 


ADDRESS 


12645 
12646 
12647 
12650 
12651 


12652 
12653 
12654 
12655 
12656 
12657 
12660 
12661 


12662 
12663 
12664 
12665 
12666 
12667 
12670 
12671 


12672 
12673 
12674 
12675 
12676 
12677 
12700 
12701 


12702 
12703 


0052 


INSTRUCT 


44 0090 
5073 00 
10 6467 
12 6470 
5013 90 


0135045 

0135044 
5027 00 
5046 900 
5045 00 
5042 0 
5041 0 
5047 00 


5043 90 
5050 900 
76 5555 
37 ono! 
5073 10 
12 oano 
5073 0 
653 2673 


76 5555 
37 0001 
5073 10 
i2 0000 
5073 0 
02 6446 
61 2702 
5056 40 


5022 90 
34 2705 











L9OG~P 


SEQNO 


005077 
003100 
003101 
003102 
0031035 


003104 
003105 
003106 
003107 
003110 
003111 
0035112 
0035115 


003114 
003115 
003116 
003117 
005120 
0035121 
003122 
003125 


003124 
003125 
003126 
003127 
0035130 
005131 
005132 
003133 


003134 
003135 


LABEL 


ESDATQ 


WACKQ 


AUTS3 
ACKAUT 


AUTS2 


STATEMENT 
STOP*4Q0 ERROR STOP 
ENTSR*10 
ENTAL*ADR (101 OR 301+2(KH=1)) 
ENTSR*00 | 
CMAL*TESTAK@1 #5056402 
JPEQ*LOK+3 YES = CONT 
STRAL*PLACB8 SAVE ERRONEOUS DATA 
RJP*RCORDO RECORD ERROR-EI WAS DUAL/ESI/ESAr2 
ENTBKB*01 ADV COUNT 
SKPIIN*KH WAS ODA SENT ON KL LINE? 
SKP*40 NO-CONTINUE 
RJP*RCORDO RECORD ERROR=ODA SENT KHe3 
ENTBKB*O0L ADV COUNT 
RJP*STINK | 
OUT*KL SET UP TO TEST 


THAT IDA/ODR 
O*CKwDtl IS LOCKED OUT BY 
RJP*TERMAL LACK OF OUT ACTIVE 
IN*KL PREP TO SEE IF 

O*PIN ODA RATHER THAN 

O*PIN EFA IS SENT KL 


O*xCKwDt+2 


SET UP TO DETECT 
O*CKwO IDA RETURNED ON 
O*CKwD WRONG CHAN 

ENTAL*LEIP 100¢42KL 
STRADR*¥ZAABt2 AT PROG 
STRADR*SOODRP41 ISOL ROUTINE 
ADDALK*01 101+2KL 


OUT*KH 


STRADR*CLADR+2 


STRADR*DATREQ 
STRADR*SOODRP+2) 


TO EXAM ET DATA 
TO ISOL ROUTINE 


PAGE 


ADDRESS 


12704 
12705 
12706 
12707 
12710 


12711 
12712 
12713 
12714 
12715 
12716 
12717 
12720 


12721 
12722 
12723 
12724 
12725 
12726 
12727 
12730 


12731 


12752 
12753 
12754 
12735 
12736 
12737 
12740 


12741 
127402 


0053 
INSTRUCT 


5056 40 
9073 «610 
12 0090 
9073 90 
02 2791 


61 2714 


GQ 4243 
76 5555 
37 oon! 
5021 900 
5050 490 
76 5555 
37 60001 


76 6336 
5012 00 
016447 
016446 
76 5447 
5011 00 
016412 
016412 


5012 00 
016445 
0164645 

12 6567 

74H 2753 

74H 3046 

71 0091 

74H = 3330 


74H 2775 
7TH 3047 


896-P 


SEQNO 


005136 
003137 
005140 
003141 
0035142 


003145 
003144 
003145 
003146 
003147 
003150 
0035151 
003152 


003153 
003154 
005155 
003156 
003157 
005160 
003161 
003162 


003165 
005164 
003165 
003166 
003167 
003170 
005171 
005172 


003175 
003174 


LABEL 


ZAAB 


EIKL 


DATREQ 


STATEMENT 


ADDALK*7775 


101+2(KL=1) 


STRADR*DATQES ESI EI HANDLING 
ENTAL*LOBCP G142KL 

ADDALK*01 TO CHECK ODR 

STRADR*¥ACTLOC LOCKOUT BY ACTIVE NoT 
RJP*CLADR 

ENTAL*EIOKL=1 RJP TO INT RTN 
ENTSR*10 

STRAL*ADR AT 100+42KL 

ENTSR*00 

ENTAU*AUERDS DISPLAY 

ENTAL*ALERDS FLAGS 

EXF*eKL EXFeFWDeiwD 

O*SDRPtH1 DATA IS JP 

0*SDRP IF SOO DROPPED 

EXFOV*KL SEND EFA/EIR 

LSHAL*00 WAIT 

RSHAL*00 TO RECEIVE 

LSHAU*00 EI KL 

RSHAUY*00 NOOPS 

LSHA*00 

RSHA*00 

SKP*Q90 

RJUP*RCORDO RECORD ERROR~EIKL NOT RCVDe4 
ENTBKB*01 ADV COUNT | , 
ENTSR*10 

ENTAL*ADR EXAM 101+2KL 

ENTSR*00 

JPALNZ*LOK+2 EIR (DATA) RCVOD? 
RJP*RCORDO RECORD ERROR=DATA NOT RCVDeS5 
ENTBKB*01 ADV COUNT 


PAGE 


ADDRESS 


12743 
12744 
12745 
12746 
12747 


12750 
12751 
12752 
12753 
12754 
12755 
12756 
12757 


12760 
12761 
12762 
12763 
12764 
12765 
12766 
12767 


12770 
12771 
12772 
12773 
12774 
12775 
12776 
12777 


13009 
13001 


0054 


INSTRUCT 


71 47775 
74 3014 
12 6565 
71 Onni 
7& 3003 


76 3326 
12 3056 
5073 10 
44 Qgo00 
5073 90 
10 6467 
12 6470 
5013 00 


0135045 

013044 
5027 00 
5046 0 
5042 0 
50465 0 
5041 00 
5047 900 


50483 00 
5050 00 
76 5555 
37 on0t 
5073 10 
12 0000 
5073 900 
63 301 


76 5555 
37 6O0n! 





69¢-P 


SEQNO 


003175 
003176 
0035177 
003200 
003201 


0035202 
003203 
003204 
003205 
003206 
003207 
003210 
003211 


003212 
003215 
003214 
003215 
003216 
003217 
003220 
003221 


003222 
003223 
003224 
003225 
003226 
003227 
003236 
003231 


003232 
003235 


LABEL 


ACTLOC 


TESTAC 


DATQ@ES 


QACK 


STATEMENT 
ENTSR¥*10 
ENTAL*ADR Git2KLHCACW 
ENTSR*00 
CMAL*CKWD+1 DID ODR/IDA GET THRU? 
JPEQ*LOK+3 NO = CONTINUE 
STOP*4Q ERROR STOP 
SKPOIN*KH WAS IDA RETURNED ON WRNG K? 
JP*LOK+2 NO = CONTINUE 
STOP*40 ERROR STOP 
ENTSR¥*10 
ENTAL*ADR (10142(KL=-1))# 
ENTSR*00 
CMAL¥*TESTAK@1 5056402 
JPEQ*LOK+3 YES=CONT 
STRAL*PLACS8 
RJP*RCORDO RECORD ERROR“EI WAS DUALZESI/ESAr6 
ENTBKB*01 ADV COUNT 
SKPIIN*KL WAS ODA SENT ON KL LINE? 
SKP*40 NO=CONTINUE 
RJP*RCORDO RECORD ERROR=0ODA SENT KLe7 
ENTSKB*01 ADV COUNT 
ENTAL*ALERDS ANY EI CONTROL ERRS? 
JPALZ*FALSEI NO = CHECK FOR FALSE FIS 
RJUP*INOBAS GATHER IN/OUT CONTROL DATA 
RJP*LOCKOB GATHER LOCKOUT CONTROL DATA 
ENTAU*FAULTI DISPLAY LOCKOUT DATA 
ENTAL*PLAC8 DISPLAY BAD DATA OF 
STRAL*FAULTI LAST CHAN W/DUAL EI DETECT 
RUP*DISPOC ON THE C REG 
ENTAL*ALERDS DISPLAY EXFEIC+INOBAS DATA 
STOP*40 ERROR STOP 


PAGE 


ADDRESS 


13002 
13003 
13004 
13005 
13006 


13007 
13010 
13011 
13012 
13013 
13014 
13015 
13016 


13017 
13020 
13021 
13022 
13023 
13024 
13025 
13026 


13027 
13050 
130351 
13032 
13033 
130354 
130535 
130356 


13037 
13049 


0055 
INSTRUCT 
5073 10 
12 00n0 
5073 0 
02 6446 
61 3011 
5056 40 
5022 90 
34 3013 
5056 40 
5073 10 
12 0090 
5073 90 
02 27N1 
61 3022 
44 4ou3 
76 5555 
37 0001 
5021 00 
5050 40 
76 5555 
37 on01 
12 6470 
61 3n41 
76 3064 
76 3173 
10 66N2 
12 4943 
44 6602 
76 5413 
12 6470 


5056 40 





OL6-F 


SEQNO 


003234 
003235 
003236 
003237 
003240 


003241 
003242 
0035245 
003244 
003245 
003246 


003247 


003250 
003251 
003252 
005255 
003254 
003255 
003256 
0035257 


003260 
003261 
005262 
0035263 
005264 
003265 
005266 
0035267 


003270 
003271 


LABEL 


FALSEI 


SORP 
SOODRP 


EIQKH 


ETOKL 


TOFIV 


252525 


STATEMENT 


REMARK*AL CONTAINS BIT SET FOR ERROR 

REMARK* O*% IF EIM NOT RECEIVED KHeKL 
REMARK* 1°5 IF EI DATA NOT RCVD KHeKL 
REMARK*® 2°96 IF EI IN DUALt+ESI+ESA VODE KHeKL 
REMARK* 397 IF ODA INSTEAD OF EFA SENT KHeKL 


REMARK* 8912 IF INPUT ACT NOT TERM KHeKL 

REMARK* 9013 IF ODA/IOR SENT ON OTHER CHAN (KHe KL) 
REMARK*10914 IF IDA RETURNED ON OTHER CHAN 
REMARK*11015 IF INPUT DATA NOT RCVD KHeKL 
REMARK*AU CONTAINS LOCKOUT TEST DATAr SEE LOCKOB 
REMARK*C CONTAINS BAD DATA OF LAST CHAN W/DUAL ERR 


RJP*LOKOS TEST INT LOCKOUTS 

IUP*EXFEIC EXIT 

RESERV*1 

TUP*S0DRP 1ST EXF CODE 

ENTSR*10 

ENTAL*ADR (1004+2K) 

ENTAU*ADR (101+2K) 

STOP*40 ERROR STOP 

IRJP*EIOKHA FOR INT ENT ADDR 

0*0 ENTRY 

RIL RIL 

ENTSKB*01 ADVANCE COUNTEIKH RCVD 

JP*DATARG=1 RETURN TO MAIN PROG 

IRJP*EIOKLA FOR INT ENT ADDR 

0*0 ENTRY 

RIL RIV 

ENT8KB*01 ADV COUNT-EIKL RCVD 

JP*DATREQ=1 RETURN TO MN PROG 
CONSTANT 


PAGE 


ADDRESS 


13041 


13042 
13043 
13044 
13045 
13046 
13047 
13050 
13051 


13052 
13053 
13054 


13055 


13056 
13057 
13060 
13061 


13062 
135063 


0056 
INSTRUCT 
76 3333 
55 2574 

0000N0 
55 7752 
5073 10 
12 0000 
160 90000 
5056 40 
30 7765 
00 Onno 
5030 90 
37 60001 
34 2656 
30 7766 
00 onno 
5030 910 
37 0001 
34 2774 


252525 


TLO-P 


SEQNO 


003272 
005273 
003274 
003275 
003276 


003277 
003300 
003301 
003302 
003303 
003304 
003305 
003306 


003307 
003310 
003311 
003312 
003315 
003314 
003315 
003316 


003317 
003320 
0035321 
003322 
003325 
003324 
003325 
003325 


003327 
003330 


LABEL 


INOBAS 


TOQUTS 


TOINS 


VEROUT 


SKINT 


STATEMENT 


0*0 ENTRY 
ENTALK*INOBAS 
STRADR*¥IFAULT 
RJP*TERMAL 
RUP*HONINT 


NOTIFY FAULT 
ROUTINE 


ENTICR*03 
ENTBK*10 
RJP*CLPIN 
OUT*KH 
O*CKwDtl 
O*CKWD 
OUT*KL 
O*CKwOt] 


ALERDS FIRST 8 BITS 


CLR INPUT AREA 
OUT ACT TO 
TEST KH ODA AND 
DATArC REG 
QUT ACT ON KL 
TO TEST KL ODA/IDA NOT. 


O*CKwDtl ONE WD ON KHeKL 
IN*KH NORMAL RECEIVING 
O*PIN CHAN? KH 

O*PIN ONE WO - 

IN*KL IN ON KL 


O*¥PINt+2 TO TEST FALSE 

O*¥PINt2 ODA XMIT 

QUTOV*KH SEND KH ODA 
 ENTAU*CHANtTS WAIT TO COMPLETE 

RUP*DELAY BUFFER EITHER INTERFACE 

SKPTIN*KH KH INPUT TERMINATED? 

RJP*RCORDO RECORD ERROR“NOT TERM 

ENTBKB*01 ADV COUNT 

SKPTIN#*®KL ODA ON KL? 

SKP*40 

RJP*RCORDO RECORD ERROR“YES*0N KL ALSO 

ENTBKB*01 ADV COUNT 


SKPOIN*KL WAS IDA ON KH ONLY 


PAGE 


ADDRESS 


13064 
13065 
13066 
13067 
13070 


13071 
13072 
13073 
13074 
13075 
13076 
13077 
13100 


13101 
13102 
13103 
13104 
13105 
13106 
13107 
13110 


13111 
13112 
13113 
13114 
13115 
13116 
13117 
13120 


13121 
13122 


0057 


INSTRUCT 


00 Onno 
70 3064 
7&4 = =6603 
76 5447 
76 6353 


5072 3 
36 O0N10 
76 6402 
5012 90 
016446 
016445 
5012 90 
016446 


016446 
5011 00 
016412 
016412 
5011 90 
016414 
016414 
5026 0 


10 6540 
76 0302 
5021 900 
76 5555 
37 0001 
9021 0 
5050 40 
76 $555 


37 0001 
5022 90 





CLO-P 


SEQNO 


003331 
003352 
003335 
003334 
0033355 


003336 
003337 
0033540 
003341 
U0334e 
003343 
003344 
003345 


005346 
003347 
003350 
003351 
003352 
003353 
003354 
003355 


003356 
003357 
0033560 
003361 
003362 
005365 
005364 
003365 


003366 
003367 


LABEL 


TOOUT2 


TOINS2 


VROUT2 


SKINT2 


STATEMENT 
SKP*40 
RUP*RCORDO RECORD ERROR“ON KL ALSO 
ENTBKB*01 ADV COUNT 
ENTAL*PIN WAS SOME DATA RECEIVED? 
JPALN2Z*LOK+2 YES=CONTINUE 
RUP*RCORDO RECORD ERROR=NO DATA 
ENTBKB*01 ADV COUNT 
RJP*CLPIN NOTES ARE IDENTICAL 


OUT*KL TO THOSE STARTING AT 
O*CKwOtl] TOOUTS*KH FOR KV vVSV 
O*CKWD 

OUT*KH 

O*CKwDOtl 


O*CKWwDt1 
IN*KL 
O*PIN 


Q*PIN 


IN*KH 
O*PIN+2 
O*PIN+2 
OUTOV*KL 


ENTAU*CHANtS5S 
RJP*DELAY 
SKPIIN*®KL 


WAIT TO COMPLETE 


RJP*RCORDO 


ENTBKB*01 
SKPIIN*KH 
SKP*&0 
RJUP*RCORDO 


ENTSKB*01 


SKPOIN*KH 


PAGE 


ADDRESS 


13123 
13124 
13125 
13126 
13127 


13150 
13151 
13132 
13133 
13134 
13135 
13136 
13137 


13140 
13141 
13142 
13143 
13144 
13145 
13146 
13147 


13150 


13151 


13152 


13153 


13154 
13155 
13156 
13157 


13160 
13161 


0058 


INSTRUCT 


5050 40 
76 5555 
37 OOn! 
12 6412 
63 3131 


76 5555 
37 O00n1 
76 6492 
5012 A”0 
016446 
016445 
5012 00 
016446 


016446 
S011 900 
016412 
016412 
5011 900 
016414 
016414 
5026 10 


10 6540 
76 O3N2 
59021 0 
76 5555 
37 Onol 
5021 0 
5050 40 
76 5555 


37 0001 
9022 90 


€Lo~P 


SEQNO 


003370 
003371 
005372 
0033753 
003374 


003375 


— 003376 


003377 
003400 
003401 
003402 
003405 
003404 


003405 
003406 
003407 
003410 
0035411 
003412 
003415 
003414 


003415 
003416 


903417 


003420 
003421 
003422 
003425 
003424 


003425 


LABEL 


LOCKOB 


ENTAD 


003426 CHANAD 


STATEMENT 


SKP*40 
RUP*RCORDO 
ENTBKB*01 
ENTAL*PIN 
JPALNZ*LOKt2 


RJP*RCORDO 
ENTBKB*01 
IUP*INOBAS EXIT 
RESERV*1 

0*0 ENTRY 
ENTALK*LOCKOB 
STRADR*IFAULT 
RJP*TERMAL 


NOTIFY FAULT 
ROUTINE 


RUP*HONINT HON ALL MON INTS 
ENTBK*00 B3#O | 
CL¥PLACE CL 1ST TIME FLAG 


CL*¥FAULTI CL ERROR STORE 
ENTALK*HEIP HICHAN EI ENT 
STRADR*ENTAD 

ENTALK*HICHAN HICHAN K 
STRADR*CHANAD 

RXL RXL 

ENTAL*HEIP ADDR OH HI EI ENT ADR 
STRADR*EFOV2=2 

STRADR*VEP 

ADDALK*01 ADDR OF 
STRADR*CLADR+2 # EI wd 
STRADR*KUR TO PROG LOCS 
STRADR*¥EFOV2+4 
STRADR*¥EFOVS+t4 

ENTAL*HICHAN KH (KL) 


PAGE 


ADDRESS 


13162 


13163 


13164 
13165 
13166 


13167 
13170 
13171 
13172 
13173 
13174 
13175 
13176 


13177 
13200 
13201 
13202 
13203 
13204 
13205 
13206 


13207 
13210 
13211 
13212 
13213 
13214 
13215 
13216 


13217 
13220 


0059 


INSTRUCT 


5050 490 
76 5555 
37 0n01 
12 6412 
63 3170 


76 5555 
37 OON1 
55 3964 

000000 
00 90000 
70 =3173 
74& 6693 
76 5447 


76 6353 
36 0000 
40 6615 
40 6602 
70 6576 
74 3210 
70 6573 
74 3220 


5032 00 
12 6576 
74H 3262 
74 3232 
71 #0001 
74 3330 
74 3247 
74 3270 


74 3302 
12 6573 


VLO-P 


SEQNO 


003427 
003430 
003431 
003432 
003455 


003434 


—6 003435 


005456 
003437 
003440 
003441 
003442 
003443 


003444 
003445 
003446 
003447 
003450 
005451 
003452 
003455 


003454 
005455 
003456 
003457 
0035460 
003461 
003462 
003463 


003464 
003465 


LABEL 


VEP 


RIGA 


DEELA 


KUR 


STATEMENT 


ENTAU*U1LOMSK MASK 
SLSU*RIGA TO 


STRAL*RIGA PROGRAM 

SLSU*RIGAt3 LOCS 

STRAL*RIGAt3 

STRAL*EFOV2 EXFOV 

STRAL*EFOV3 EXFOV 
—ENTAL*HIEIS“1  IRUP 

ENTSR*10 

STRAL*ADR 

ENTSR*00 

RJPXCLADR (101 OR 301 + 2KH) (KL) 

EXF*KH EF ON KH (KL) 

O*CKWO+4 

O*CKwD 

EXFOV#KH SEND EIR TO KH (KL) 

ENTAU*CHAN+14 WAIT TO 

LSHAU#01 RECEIVE 

JPAUP*#LOK=1 INTERRUPT 

RJUP*RCORDF RECORD ERROR=EIKH NOT RCVD (KL) 

ENTBKB*01 ADV COUNT 

ENTSR*10 

ENTAL*ADR (101 OR 301+2KH) (KL) 

ENTSR*00 

JPALNZ*LOK+2 #0? NO=CONTINUE 

RUP*RCORDF RECORD ERROR=EIKH No DATA WD(KL) 

ENTSKB*01 ADV COUNT 


RIL CLEAR ALL EIM FFS 
SIL LOCKOUT EIM REQ 


RXL ENABLE EIRS 
RJP*CLADOR CLEAR 101 OR 301 *#2KH(KL) 


PAGE 


ADDRESS 


13221 
13222 
13223 
13224 
13225 


13226 
13227 
13230 
13231 
13232 
13233 
13234 
13235 


13256 
132357 
13240 
13241 
13242 
13243 
13244 
13245 


13246 
13247 
13250 
13251 
13252 
13253 
13254 
13255 


13256 
13257 


0060 


INSTRUCT 


10 6855 
04% 3235 
44 3935 
04 32480 
44 3240 


G4 3264 
44 3276 
12 3323 
5073 10 
4& 0050 
5073 900 
76 3326 
9013 00 


016451 

016445 
5027 900 
10 6547 
5045 o1 
64 3242 
76 5564 
37 0001 


5073 10 
12 0900 
5073 0 
63 3253 
76 5564 
37 o001 
5030 90 
5034 0 


5032 0 
76 3326 





GLo-P 


SEQNO 


005466 
003467 
003470 
003471 
003472 


003473 
003474 
003475 
003476 
003477 
003500 
003501 
003502 


003503 
0035504 
003505 
003506 
003507 
003510 
003511 
003512 


003513 
003514 
003515 
003516 
003517 
003520 
003521 
003522 


003523 
003524 


LABEL 


EFQV2 


EF OVS 


 RUP*RCORDF 


STATEMENT 


ENTAL#¥RIL 
ENTSR*10 
STRAL*ADR 
ENTSR*00 
EXFOV*KH 


IGNORE NEXT EIM 


INTO 100 OR 300 +2KH(KL) 


ENTAYU*CHANF+14 
RJUP*DELAY 
ENTSR¥*10 
ENTAL*ADR 
ENTSR*00 
JPALNZ*LOKt2 
RJP*RCORDF 
ENTBKB*01 


(101 OR 301 +2KH(KL)) 


RECORD ERROR=EIR NOT ACCEPTED 
ADV COUNT 


RJP*CLADR 
EXFOV*KH 
ENTAU*CHANt+12 
RJP*DELAY 
ENTSR*10 
ENTAL*ADR 
ENTSR*00 
JPALZ*LOKt2 


191 OR 301 +2KH(KL) 


(101 OR 301 +2KH(KL)) 


RECORD ERROR=EIR ACCEPTED 
ENTBKB*01 
ENTAL*PLACE 
JPALNZ¥*LOK+11 
ENTALK*LEIP 
STRAL*PLACE 
STRADR*¥ENTAD 
ENTALK*LOCHAN 


1ST TIME THRU? 
No-TO EXIT 
LOCHAN EI ENT 


LOCHAN K 


STRADR*¥CHANAD 


RJP*TERMAL 


PAGE 


ADDRESS 


13260 
13261 
13262 
13263 
13264 


13265 
13266 
13267 
13270 
13271 
13272 
13273 
13274 


13275 
13276 
13277 
13500 
13301 
13302 
13303 
13304 


13305 


13306 
13507 
13310 
13311 
133512 
13313 
13314 


13315 
13316 


0061 
INSTRUCT 
12 6613 
5073 10 
44 0090 
5073 90 
5027 90 
10 6547 
76 0302 
2073 «610 
12 0000 
9073 00 
653 3274 
76 5564 
37 0n01 
76 3326 
5027 00 
10 6545 
76 0302 
5073 10 
12 0000 
5073 00 
61 3396 
76 5564 
37 o00n1 
12 6615 
63 3321 
70 6567 
GG 6615 
74 3210 
70 6564 
74 3220 


76 5447 





9L¢6-P 


SEQNO 


0035525 
003526 
003527 
005530 
003531 


003532 
003535 
003534 
003535 
003536 
003537 


005540 


0035541 — 


0035542 
0035435 
005544 
003545 
003546 
005547 


003550 
003551 
003552 
003555 
005554 
003555 
003556 
0035557 


003560 
005561 


LABEL 


HIEIS 


CLADR 


LOKOS 


INOQUTC 


STRAL*00 


STATEMENT 


RUP*HONINT GET RIO OF EIMS 
JP*ENTAD@1 DO KL 


REMARK*AL (FAULTI) HAS BIT SET To FLAG ERROR 


REMARK* Or 4& IF EI NOT RCVD KHeKL 
REMARK* 10¢5 IF No EI DATA KHeKkKL 


REMARK* 2¢6 IF EIR (DATA) NOT ACCEPTED WHEN RIL KHeKL 
REMARK* 3*¢7 EIR (DATA) ACCEPTED WHEN EIM WAITING KHe L 


IJUP*LOCKOB EXIT 
RESERV*1 
IUP*HIEITSP 
IJPET*LOK+1 EXIT 


O*DEELAtY REF 


0*«0 ENTRY 
ENTSR¥*10 
CL*ADR CL SPECIFIED ADDR 
ENTSR*00 
IJP*CLADR EXIT 
0*0 ENTRY 
RJP*LOCKOB TEST EI LOCKOUT CRKT 
ENTAL*FAULTI ANY ERRORS? 
JPALZ*LOKt2 NO = EXIT 
STOP *4Q ERROR STOP 
IJP*LOKOS EXIT. 
O*#0 #£ENTRY 
ENTALK*INOQUTC NOTIFY FAULT 
STRADR*IFAULT ROUTINE 
ENTAL*AFAULT IRJP TO 
ENTSR*10 

FLT ENT 


PAGE 


ADDRESS 


13317 
13320 


13521 
13322 
13523 
13324 


13325 
13326 
13327 
13550 
13331 
13532 
13333 
133534 


13335 
13356 
13357 
13340 
13341 
13342 
13343 
13344 


13345 
13346 


0062 


INSTRUCT 


76 6353 
34 3207 


55 3173 

000000 
55 7751 
S94 3325 


013245 
00 9donn0 
5073 10 
40 0000 
5073 00 
55 3326 
oo 0000 
76 3173 


12 6602 
61 3340 
5056 40 
55 3333 
00 0000 
70 =3341 
74 6603 
12 5374 


5073 10 
44 ONND 








LLé-¥ 


SEQNO 


003562 
V03565 
003564 
003565 
003566 


003567 


003570 
003571 
00357e 
003573 
0035574 
003575 
003576 


003577 
003600 
003601 
003602 
005605 
003604 
003605 
003606 


003607 


003610 
003611 
003612 
003613 
003614 
003615 
003616 


005617 
003620 


LABEL 


RIIC 


CHANG 


STATEMENT 


ENTSR*00 

CL¥ALERDS CLEAR ERROR STORES/ 
CL*¥AUERDS FLAGS 

CL*¥FAULTI 

CL¥PLAC2 


CL*¥PLACS 
CL*¥PLACY 


ENTALK*HICHAN HIGH CHAN TO 


STRADR*CHANG+1 CHAN CHANGER 1ST 
ENTALK*HETP ADDR OF HICHAN EI 
STRADR*INOAG ENT ADR TO PROG 
ENTALK*HIBCP ADDR OF HICHAN IN 
STRADR*INOA Cw LOCS TO PROG 
ENTICR*02 SELECT B2 FOR ERROR RECORD 
ENTBK*00 B2H0O INITIAL 

ENTAU*U1L2MSK CHANNEL 

ENTAL#HICHAN CHANGER 

SLSU*INOAA 


STRAL*INOAA OUT 
STRAL*INOAF OUT 


— STRAL*INOAHt+3 OUT 


STRAL*INOAK OUT 
SLSU*INOAB 
STRAL*INOAB IN 
STRAL*INOAF +3 IN 
STRAL*INOAK+t3 IN 
SLSU*INOABTS 
STRAL*INOABtTS3 OUTOV 
STRAL*INOAL OUTOV 


SLSU*INOAE 


STRAL*¥INOAE SKPTIN 


PAGE 


ADDRESS 


13347 
133550 
13351 


13352 


13353 


13354 
13355 
13356 
13357 
13360 
13361 
13362 
133563 


13364 
13365 
13366 
13567 
13370 
13371 
13372 
13373 


13374 
13375 
13376 
13377 
13400 
13401 
13402 
1340% 


13404 
13405 


0063 
INSTRUCT 
5073 00 
40 6470 
40 6467 
40 6602 
40 6620 
40 6621 
40 6622 
70 6573 
74 3367 
70 6576 
74 3552 
70 6575 
74 3416 
5072 02 
36 00ND 
10 6455 
12 6573 
04 3437 
44 3437 
44 3525 
44 3563 

44 «3604 
04 3uk3 
44 3443 
44 3530 
44 3607 
04 3446 
44 3446 
44 3614 
04 3520 


4& 35270 





8LE-P 


SEQNO 


003621 
003622 
003625 
003624 
003625 


003626 
005627 
005650 
005651 
005632 
003635 
005634 
003635 


003636 
003637 
003640 
003641 
003642 
005645 
005644 
003645 


003646 
003647 
093650 
005651 
005652 
003655 
003654 
003655 


003656 
003657 


LABEL 


INOA 


INOAA 


INQAB 


STATEMENT 


STRAL*INOAM SKPIIN 
STRAL*INOAZZ SKPIIN 
SLSU*INOAH _ 
STRAL*INQAH EXF 
SLSU*INOAI 


STRAL*INOAI EXFOV 
SLSU*XINOAJ | 
STRAL*INOAJ SKPOIN 
ENTAL*HIBCP 60+2K 
STRADR*INOAD TO PROG 
ADDALK*01 61+2K 
STRADR*INOAZ 
STRADR*INOAC To PROG 


CL*PLACE FOR SEARCH 
STRADR*¥PLACE ROUTINE 

ENTAL *CKWDZ PRESTORE/RESTORE 
STRAL*CKWD OUTPUT DATA 
ADDALK*01 

STRAL*CKWDOtl 

ADDALK*01 

STRAL*CKWDt+e2 


ADDALK*01 

STRAL*CKWDt3 

RJP*CLCWAR CLEAR 004-677 
RJUP*CLPIN CLR INPUT AREA 
QUT *KH ONE ODA /IDR 
O*CKwOr] 

O*CkKwD 

RJP*TERMAL IGNORE IDA 


IN*KH ACCEPT ONE IDR 
O*PIN+1 TwO WO INPUT 


PAGE 


ADDRESS 


13406 
13407 
13410 
13411 
13412 


13413 
13414 
13415 
13416 
13417 
13420 
13421 
13422 


13423 
13424 
13425 
13426 
13427 
13430 
134351 
13432 


13433 
13434 
13435 
13436 
134357 
13440 
13441 
13442 


13443 
13444 


0064 


INSTRUCT 


44 3627 
44 3673 
04 3560 
G4 3560 
04 3566 


G4 3566 
04 3577 
44 3577 
12 6575 
74 3473 
71 0001 
74H = =3655 
74H 3454 


40 6615 
74 6615 
12 6617 
44 6445 
71 0001 
G4 6446 
71 oO001 
44 6447 


71 0091 
G4 6450 
76 5597 
76 6402 
5012 90 

016446 

016445 
76 S447 


5011 10 
016413 


6L¢~-P 


SEQNO 


003660 
003661 
003662 
0036635 
003664 


003665 
003666 
003667 
003670 
003671 
0035672 
003673 
003674 


003675 
003676 
003677 
003700 
003701 
003702 
003703 
003704 


003705 
003706 
003707 
003710 
003711 
003712 
003713 
003714 


0035715 
0035716 


LABEL 


INQAC 


INOAD 


STATEMENT 
O*PIN SHOULD NOT TERMINATE 
OUTOV*KH SEND IDR 
SKP*00 NOOPS 
LSHAL *00 
RSHAL*00 
LSHAL*00 
ENTSR*¥*10 INPUT CACW 
ENTAL*ADR 60 OR 260+2KH( KL) 
ENTSR*00 
ENTAU*PIN INPUT DATA WORD RECEIVED? 
JPAUNZ*LOKt2 YES-CONTINUE 
RJP*RCORDO RECORD ERROR#=NO INPUT DATA O 
ENTRK*01 
CMAL*INOABtH+1 CACW INCREMENTED +1? 
JPEQ*LOK+2 YES=-CONT 
RJP*RCORDO RECORD ERROR=IN CACw INCORR 1 
ENTBK*02 
CMAL*INOABt2 CACW CHANGED AT ALL? 


JPNOT*LOK+2 Y 


ES=-CONT 


RJP*RCORDO RECORD ERROR@=IN CACWHICACW2 
ENTBK*03 

ENTSR*10 TACW INPUT | 

ENTAL*ADR 61 OR 261+2KH(KL) 

ENTSR*00 

CMAL *INOABt1 WAS TACW MODIFIED? 


JPEQ*LOKt2 NO 


RJP*RCORDO 
ENTSK*04 
ENTAL*CKWDZ 


~ADDALK*01 


CKW 


CMAL*CKWDt+1 W 


“CONTINUE 


D+1H#CKWDt+1 2// 
AS SO BIT 4 DROPPED? 


RECORD ERROR=TACW WAS CHANGED 3 
WAS OUT CW REF BY IDR?// 


PAGE 


ADDRESS 


13445 
13446 
13447 
13450 
13451 


13452 
13453 
13454 
13455 
13456 
13457 
13460 
13461 


13462 
13463 
13464 
13465 
13466 
13467 
13470 


13471 


13472 
13473 
13474 
13475 
13476 
13477 
13500 
13501 


13502 
13503 


INST 


01 
9026 
5050 
5046 
5042 


5046 
5073 
12 
5073 
10 
62 
76 
36 


02 
61 
76 
36 
02 
63 
76 
36 


5073 
12 
5073 
02 
61 
76 
36 
12 


71 
02 


0n65 


RUCT 


6412 
00 
40 
90 
00 


00 
10 
onno 
n0 
6412 
S461 
5555 
o0n1 


S444 
3465 
9555 
0002 
S44s 
S471 
9555 
0003 


10 
0090 

00 
S444 
3500 
5555 
00n4 
6617 


oont 
6446 


08¢-F 


SEQNO 


003717 
003720 
003721 
003722 
003723 


003724 
003725 
003726 
003727 
003730 
0035731 
003732 
003735 


003734 
003735 
003736 
003737 
003740 
003741 
0035742 
005745 


003744 
003745 
005746 
003747 
003750 
003751 
003752 
003755 


003754 
003755 


LABEL 


INQAE 


_INOQAF 


~SURCH 


STATEMENT 


JPEQ*LOK+2 
RJP*RCORDO 


ENTBK#*05 


ENTAU*AF AULT 


ENTSR*10 
ENTAL*00 


STRAU*00 | 


ENTSR*00 


CMAL*AFAULT 
JPEQ*LOKt2 
RJP*RCORDO 


ENTBK*06 


SKPTIN*KH 


SKP*4Q 


RJP*RCORDO 


ENTBK*07 


RJP*#TERMAL 


OUT *KH 


WAS ADDRESS 


INPUT STILL ACTIVE? 


NO-CONT 
RECORD ERROR=OUT CWS REFED 4 


ZERO (090000) MODIFIED? 
(CRESTORE 00000)) ys 


YES=ERROR 
NO=CONTINUE 
RECORD ERROR=ADDR 0 MODIFIED 5 


YES@CONTINUE 


CLEAR KH 


0*0 OUTPUT 


0*0 CW 
IN*KH 


0*0 IN 
0*0 Cw 


AREA 


CLR 


A 


RECORD ERROR=IN ACT EARLY TERM 6 
TERM ALL ACTS 


(KL) 


ENTICR*03 DID IDR 
ENT8K*0137 REF 


ENTSR*10 ADORS . 
ENTALB*0540 540-677? 
ENTSR*00 

JPALNZ*CONADI 
BUP*LOK=4 


ENTBK*0473 


YES*WHICH ADDR? 


DID IDR 


PAGE 


ADDRESS 


13504 
13505 
13506 
13507 
13510 


13511 
13512 
13513 
13514 
13515 
13516 
13517 
13520 


13521 


13522 
13523 
13524 
13525 
13526 
13527 
13550 


135351 
13532 
13533 


(13554 


13535 
135356 
13557 
13540 


135414 
13542 


0066 


INSTRUCT 


61 356 
76 5555 
36 0005 
10 5374 
5073 10 


12 0n00 
46 0090 
5073 00 
02 §374 
61 3517 
76 §555 
36 00N6 
5021 00 


5050 40 
76 5555 
36 0007 
76 5447 
5012 00 
00 0000 
00 o0n90 
5011 900 


00 0090 
00 0o0n0 
5072 943 
36 0137 
5073 10 
13 0540 
5073 0 
63 3741 


73° = =3535 
36 0473 


I8e~F 


SEQNO 


005756 
003757 
003760 
003761 
003762 


003765 
003764 
003765 
003766 
003767 
003770 
003771 
003772 


003773 
003774 
003775 
003776 
003777 
004000 
004001 
004002 


004003 
004004 
004005 
004006 
004007 
004010 
004911 
004012 


OO4013 
004014 


LABEL 


INOQAG 


TNOAH 


INOAI 


INOAJ 


STATEMENT 
ENTSR*10 REF 
ENTALB*04 ADDRS 
ENTSR*00 004-4772 
JPALNZ*CONAD2 
BUP*LOK~"4 
RJP*TERMAL 
RJP*HONINT 
ENTAL*HEIP IGNORE 
STRADR*LOK+3 EIM 
ENTAL#*RIL TO 
ENTSR*10 EIM ENT 
STRAL*ADR 
ENTSR*00 
EXF *KH EXF TO PROVIDE 
O*xCKwO+tl EFA/EIR 
O*CKwD 


OUT*KH 

O*xCKwDtl 
O*CKwOtl 
EXFOV*KH 


RXL PROVIDE SCANS 


LSHAL*22 
LSHAL #22 
LSHAL*22 
LSHAL*22 
LSHAL*22 
LSHAL*22 


SKPOIN#*KH 


RJP*RCORDO 
ENT3K*08D 


(100 OR 300+2K) 


EI RETURNS IDA/OOR 
OUTPUT TO TEST 

ABILITY TO RECEIVE 
ODRe TEST OOR CIRUITRY 
SEND EFA 

RIL RIL AND RXL 


NOOPS 


WAS ODR DETECTED? 
RECORD ERROR@=ODR FAILED 7 


YES“WHICH ADDR? 


PAGE 


ADDRESS 


13543 
13544 
13545 
13546 
13547 


13550 
13551 
13552 
13553 
13554 
13555 
13556 
13557 


13560 
13561 
13562 
13563 
13564 
13565 
13566 
13567 


13570 
13571 
13572 
13573 
13574 
13575 
13576 
13577 


13600 
13601 


0067 


INSTRUCT 


5073 10 
13 O0NY 
5073 90 
635 3784 
73 «3543 


76 S447 
76 6353 
12 6576 
74 3556 
12 6613. 
5073 10 
4G 0000 
5073 90 


5013 90 
016446 
016445 

S012 900 
016446 
016446 

5027 0 

59030 00 


29032 900 
50466 22 
5046 22 
5046 22 
5046 22 
5046 22 
5046 22 
5022 "0 


76 5555 
36 0010 


C8C-P 


SEQNO 


004015 
004016 
004017 
004920 
004021 


004022 


004023 


004024 
004025 
004026 
004027 
004030 
004031 


004032 
004035 
004034 
004035 
004036 
004037 
004040 
004041 


004042 
004045 
004044 
0049045 
004046 
004047 
004050 
0049051 


004052 
004053 


LABEL 


INOAK 


INOAL 


INOAM 


STATEMENT 

RJP*CLPIN CLR INPUT DATA AREA 

RUP*STINK STORE STOP CM AREA+ TO NET INM 

OUT*KH 3 OUTPUT wDS 

O*xCKwDte 

o*CKwD 

IN*KH 3 INPUT wOS | 

O*¥PINt2 | 

O*PIN , 

ENTAU*AUERDS CURRENT ERROR FLAGS DISPLAYED 

ENTAL*ALERDS IF FALSE IN MON REQ DETECTED 

OUTOV*KH START TRANSFER OF DATA 

LSHAL*00 NO OPS 

SKP*00 TO GIVE 

RSHAL*00 TIME FOR 

LSHAU*22 BOTH TERMINATES 

RSHAU*00 ALLOWING 

LSHA*17 P EQUAL THIS 

RSHA*00 PROGRAM IF IN MON 

LSHAL*22 

LSHAL*22 

LSHAL*22 

SKPIIN*®KH IN PUT TERMINATED? 

RJP*RCORDO RECORD ERROR“INPUT NOT TERM 8 

ENTSK*09D | | 

ENTAL*®PIN 1ST wO | 
 JPALNZ*LOK+2 RECEIVED? - 

RJP*RCORDO RECORD ERROR“1ST wD NOT RCVDe9D 

ENTBK*O010D 

ENTAL*®PIN#1 2ND wD 

JPALNZ*LOKt2 RECEIVED? 

RJP*RCORDO RECORD ERROR=2ND wD NOT RCVD 10 


PAGE 


ADDRESS 


13602 
13603 
13604 
13605 
13606 


13607 


13610 
13611 
13612 
13613 
13614 


13615 


13616 


13617 
13620 
13621 
13622 
13623 
13624 
13625 
13626 


13627 


13639 
13651 


- 13632 
13633 


13654 
13655 
136356 


13657 
1364N 


0068 
INSTRUCT 


76 6402 
76 6336 
5012 00 
016447 
016445 


5011 90 
016414 
016412 

10 6467 

12 6470 


12 


5026 
5046 
5050 


5042 
5045 
5041 


5047 


5043 
5046 
5046 
5046 


—§021 


76 
36 


63 
76 
36 
12 


63 
76 


0 
0 
00 


0 
22 
00 
17 
00 
22 
22 
22 


00 
5555 
0011 


6412 


3635 
9555 
onle 
6413 


3641 
5555 


E8o~P 


SEQNO 


004054 
004055 
004056 
004057 
004060 


004061 
004062 
0040635 
004064 
004065 
004066 
004067 
0049070 


004071 
004072 
004075 
004074 
004075 
004076 
004077 
004100 


004101 
004102 
004103 
004104 
004105 
004106 
004107 
004110 


004111 
O041le 


LABEL 


INQAZ 


INOAZZ 


ENTALK*7777 


STATEMENT 
ENTBK*11D 
ENTICR*03 DATA STORED 
ENTBK*02 IN 4TH=6TH WD AREA? 
ENTALB*PIN+3  (PIN+3-PIN+5) 
“JPALZ*LOK+4 
ENTICR*02 
RUP*RCORDO RECORD ERROR@DATA OVERFLOW? 12 
ENTICR*03 
BUP*LOK=5 
ENTICR*02 
ENTBK*12D 
ENTSR¥100 
ENTAL*ADR 61+2K 
ENTSR*00  CACWHSTOPA? 
CMAL*STOPA CDM DETECTED? 
UPNOT#LOK#2 NO=CONTINUE | 
RUP#RCORDO RECORD ERROR= CoM DETECTED 
ENTBK*13D | | 
CMAL*PINS IN CACW # PIN+3 # TERM VALUE » 
JPEQ#LOK+2 YES CONT 
RJP*RCORDO RECORD ERROR=CACW TERM Vv INCORR?13 
ENTBK*14D 7 
ENTAL*PIN+2  3RD wO RECEIVED? 
JPALNZ*LOK+2 YES=CONTINUE 
RUP*RCORDO RECORD@STANDARD 1218 MODE OUT?14 
ENTBK*15D 
SKPIIN*KH WAS 3RD ODA RETURNED? 
RUP#RCORDO RECORD=STD 1218 MODE DETECT?15 
ENTAL*PLAC4 1ST TIME THRU? 
JPALNZ*FLATS NO=TEST FLAGS 


SET 1ST TIME 


PAGE 


ADDRESS 


13641 
13642 
13643 
13644 
13645 


13646 
13647 
13650 
13651 
13652 
13653 
13654 
13655 


13656 
13657 
13660 
13661 
13662 
13663 
13664 
15665 


13666 
13667 
13670 
13671 
13672 
13673 
13674 
13675 


13676 
13677 


0N69 


INSTRUCT 


36 0013 
5072 3 
36 anne 
15 6415 
61 3651 


5072 2 
76 5555 
5072 03 
73 «=3644 
5072 2 
36 0014 
5073 190 
i2 oono 


§073 90 


02 6697 
65 3662 
76 5555 
36 0015 
02 6623 
61 3656 
76 5555 


36 0016 
12 6414 
63 3672 
76 5555 
36 0017 
9021 00 
76 5555 
12 6622 


63 3712 
70 7777 


V8c-P 


SEQNO 


004115 
004114 
004115 
004116 
004117 


004120 
004121 
004122 
004125 
004124 
004125 
004126 
004127 


004130 
004131 
008132 
004133 


004134 


004135 
004136 


004137 


004140 
004141 
004142 


004145 


004144 
004145 
004146 
004147 


004150 
004151 


LABEL 


FLATS 


FLAKS 


DISC 


STATEMENT 
STRAL*PLACY DONE FLAG 
ENTAL*ALERDS MOVE KH FLAGS 
STRAL*AUERDS 
ENTALK*LOCHAN LOCHAN TO 
STRADR*CHANGF1L CHACHA 
ENTALK*LEIP USE KL ADDRS 
~ STRADR*INOAG | | | 
ENTALK*LIBCP KL 
STRADR*INOA | 
JP*RIIC RECYCLE | 
ENTAL*STDEST IF STD*NO ERROR» FLAGSH160490 
ENTAU*NTDSTD NEG IF STDePOS IF NTDS/1219 
JPAUP*FLAKS TEST FLAGS FOR NTDS/1219 BUFF. 
CMAL*ALERDS STD FLAGS OKeKL? 
JPNOT*DISC NO=DISPLAY*STOP 
CMAL*AUERDS STO FLAGS OKeKH? 
JPNOT*DISC NO=DISPLAY*STOP 
JP*FLAKSt*4 TEST SO BIT 
ENTAU®AUERDS KH FLAGS 
ENTAL#®ALERDS KL FLAGS 
JPAUNZ*DISC ERROR@DISPLAY AND STOP 
JPALNZ*DISC ERROR“DISP + STOP 
ENTAL*PLAC2 ANY SEARCH ERRORS* IDR/S0 ERROR? 
JPALNZ*DISC YES=-DISP +STOP 
RUP*MWAIT | : | | 
ITJP*INOUTC EXIT 
RESERV#1 
ENTAL*¥PLAC2 
STRAL*FAULTI 
ENTAU*AUERDS 
ENTAL*ALERDS 


PAGE 


ADDRESS 


13700 
13701 
13702 
13703 
13704 


13705 
13706 
13707 
13710 
13711 
13712 


13713 


13714 
13715 


13716. 


13717 
13720 
13721 
13722 
13723 
13724 


13725 
13726 
13727 


~13730 


13731 
13732 
13733 
13754 


13735 
13736 


0070 


INSTRUCT 


44 6622 
12 6470 
G4 6467 
70 6564 
7% 3367 


70 6567 


TH 3552 


70 6566 
74 3416 
34 3364 
12 6627 
10 6626 
64 3722 


02 6470 
65 3733 
02 6467 
63 3733 
34 3726 
10 6467 
12 6470 
62 3733 


63 3733 
12 6620 
63 3733 


76 3757 
55 3341 


000000 
12 6620 
44 66N2 


10 6467 
12 6470 


S8e-F 


PAGE On71 
SEQNO LABEL STATEMENT ADDRESS INSTRUCT 
004152 RUP*DISPOC DISPLAY PLAC2 ON C REG 13737 76 5413 
004153 STOP *4Q ERROR STOP 13740 S056 40 
004154 REMARK*AU CONTAINS KH FLAGS 
004155 REMARK*AL CONTAINS KL FLAGS 
004156 REMARK*BIT ERROR 
004157 REMARK* 0 NO INPUT DATA RCVD/INPUTTED 
004160 REMARK* 1 INPUT CACW INCORRECT AFRT IDR*FORCE 
004161 REMARK* 2 CACW WAS NOT INCR BY IDR*FORCE 
004162 REMARK* 3 TACW WAS CHANGED BY IDR*¥FORCE - 

004163 REMARK* 4 OUT CWS REFRENCED BY IDR*FoRCE 
004164 REMARK* 5 ADDR 00000 WAS MODIFIED RY IDR*FORCE 
004165 REMARK* 6 IN ACT TERMINATED TOO SOON 
004166 REMARK* 7 OQODR/IDA NOT RECVD/SENT 
004167 REMARK* 8 MULTI wD INPUT STILL ACTIVE 
004170 REMARK* 9 1ST WDHO/NOT RCVOD 
004171 REMARK* 10 2ND WDHO/NOT RCVD 
004172 REMARK* 11 DATA OVERFLOW 
004173 REMARK* 12 CDM DETECTED 
004174 REMARK* 13 INPUT TERM CACW NOTHTACWH1 
004175 REMARK* 14 STANDARD 1218 MODE BUFFERING DETECTED 
004176 REMARK* 15 3RD ODA NOT RETURNED?1218 STD MODE 

—- 004177 REMARK*CE LOWER CONTAINS CODE FOR Sn 
004200 REMARK*BIT PICKED UP OR DROPPED WITH IDR*BOTH K 
004201 CONAD1 ENTALK*0540 540 +B3#ADDR 13741 70 0540 
004202 ADDAL*03 13742 14 0003 
004203 JP*CONAD2+2 COMPARE To CACW OF K*INPUT 13743 34 3746 
004204 CONAD2 ENTALK*0004  4+83H#ADDR 13744 70 Onn4 
004205 ADDAL *03 13745 14 00n3 
004206 ENTAU*LOMSK  MSK 000777 13746 10 6616 
004207 ~SUBAL*PLACE ADDR FOUND=IN#*K CACW ADDR 13747 16 6615 
004210 STRAL*PLACE 13750 4& 6615 


98¢-P 


SEQNO 


004211 
004212 
004215 
004214 
004215 


004216 
004217 
004220 
004221 
0904222 
004225 
004224 
004225 


004226 
004227 
004230 
004231 
004252 
004235 
004234 
004255 


004236 
004237 
004240 


004241 — 


OOK242 
004243 
004244 
004245 


004246 
004247 


LABEL 


MWAIT 


MWA 
MWB 


MWC 


MWD 


MWAED 
CSDATA 


0*0 ENTRY 7 . _ 
-ENTAL*HIMIP HI CHAN IN MON ENT ADDR 


STRADR¥IFAULT 


STATEMENT 


ENTAL*PLAC2 
LSHAL*9D 
SLSU*PLACE 
STRAL*PLAC2 
ENTICR*02 


JP*INOAG 


KH IN PLAC2 UPPEReKL LOWER 
RESELECT B2 


CONTINUE 


STRADR*¥MWA 
ENTAL*MWAED~1 
ENTSR*10 
STRAL*ADR 
ENTSR*00 


IRJUP TO 
160 OR 360 + 2KH 


OUT*KH MULTI WD QUTPUT 


O*CKwOt+4 TO GIVE ODA/IORS 
o*CKkwD 

IN*®KH INPUT W/MON 

O*¥PINF2] 

2*PIn 

OUTOV*KH START TRANSFER 


WTF] WAIT TO TERM INPUTe RECEIVE MON 


STOP*40 ERROR STOP 

REMARK*STP IF WAIT SEQ FAILS+ HANG UP IN 
REMARK*WAIT SEQ IF I/0 NOT PROCESSED 
TUP*MwAIT EXIT 

RESERV*1 

IUP*mMWwAID REF 

IUP*MWAIT OK eEXIT 


0*0 ENTRY 
ENTALK*CSDATA NOTIFY FAULT 
ROUTINE 


PAGE 


ADDRESS 


13751 
13752 
13753 
13754 
13755 


13756 
13757 
13760 
13761 
13762 
13763 
13764 
13765 


13766 
13767 
13770 
13771 
13772 
13773 
13774 
13775 


13776 


13777 
14000 
14001 
14002 
14003 


14004 
14005 


0n72 


INSTRUCT 


12 6620 
5086 il 
0& 6615 
4G 6620 
5072 02 


34 3552 
oo 60000 
12 6601 
7TH 3764 
12 49001 
5073 10 
4G 0000 
9073 90 


5012 90 
01645] 
016445 

5011 90 
016414 
216412 

5026 00 

5024 00 


5056 40 


55 3757 

000000 
55 7756 
55 3757 
00 0n00 


70 4003 
74 6603 








L8C~-P 


SEQNO 


004250 
004251 
004252 
004253 


004254 


004255 
004256 
004257 
004260 
004261 
004262 
0042635 
004264 


004265 
004266 
004267 
004270 
004271 
004272 
004273 
004274 


004275, 
(004276 


004277 
004300 
004301 
004302 
004303 
004304 


004305 
004306 


LABEL 


KLTURN 


CSDA 


CSO8 


—O*BITDATHS 


STATEMENT 
CL¥PLACY SF COUNT 
CL¥*¥PLAC2 SING BIT PICK DATA 


CL*PLAC3 MULTI BIT PICK DATA 
CL*PLACS SING BIT DROP DATA 
CL*¥PLAC8 MULTI BIT DROP DATA 
CL*ALERDS 

ENTICR*02 82 FOR ERROR RECORD 
ENTBK*®00 B2HO INITIAL 
ENTAU®UL2MSK  MSK#777700 
ENTAL*HICHAN HIGH CHAN 
SLSU*CSDA FIRST TIME 
STRAL*CSDA TROUGH PROGRAM 
SLSU*CS0B 

STRAL*CSDB 

SLSU*CSDB+3 

STRAL*CSDB+3 

CL*PLAC7 CLEAR USE 

CL*¥PLACE LOCATIONS 

RUP#CLPIN CLEAR INPUT AREA 
OUT*KH OUTPUT 4 wOS 


1ST wDO#OS 


O*BITDAT  2ND WDH7S 
IN®KH INPUT 4 wWOS 
O*PIN+S 3RD wOHS5S25252 
O*PIN 4TH WO#252525 
OUTCV*KH SEND IDR 
ENTAU*CHANt+10 WAIT 


RUP*DELAY 

ENTAL®PIN IS 1ST WDHO ? 
JPALZ*CSDD TO 2ND WDeADV COUNT+4 

RUP*RCORDO 


RECORD ERROR@1ST wO NOT ZER0N+0 


PAGE 


ADDRESS 


14006 
14007 
14010 


16011 
14012 


14013 
14014 
14015 
14016 
14017 
14020 
14021 
14022 


14023 
14024 
14025 
14026 
14027 
140350 
140351 


14032 
(14033 


140354 
14055 
14036 
140357 
14040 
14041 
14042 


14043 
14044 


0073 
INSTRUCT 
40 6622 
40 6620 
GO 6621 
4O 4244 
GO 4243 
4Q0 6470 
5072 n2 
36 0090 
10 6455 
12 6573 
0&8 4031 
4& ORI 
0&8 4034 
4G 4034 
0G 4037 
G4 4037 
40 42uea 
40 6615 
76 6402 
5012 10 

014237 
014234 
5011 00 
016415 
016412 
5026 00 
10 6543 
76 03N2 
12 6412 
61 4103 
76 5555 


88e-PF 


SEQNO 


004307 
004310 
004311 
004312 
004313 


004314 
004315 
004316 
004317 
004320 
004321 
004322 
004323 


004324 
004325 
004326 
004327 
004330 
004331 
004332 
004335 


004334 
004335 
004336 


004337 


004340 
004341 
004342 
004345 


004344 
004345 


LABEL 


CSDE 


CSOF 


cspc 


CSDD 


STATEMENT 
ENTBKB*01 ADV COUNT 
CMAL*ALL7S 1ST wDOR777777 ? 
JPNOT*CSDE NO@ANALYZE FAILURE 
RJP*RCORDO RECORD ERROR=1ST wDO#7S »o1 
ENTBKB*03 ADV COUNT 
JP*CSDDt1 TEST 3RD wD 
STRAL*TOCS SAVE DATA wD 
ENTBKB*01 | | 
ENTAU*CHAY CLEAR AU 
SF*45 
LSHA*Q2 | 
— JPAUNZ*CSDC MULTI BITS PICKED UP 1ST WD 
RJP*RCORDO RECORD ERROR@=SING BIT PICKUPs2 
ENTBKB*02 ADV COUNT 
RIP*SFK SF Kel(17)° TO PLACY 
ENTAL*PLAC4Y 
ADDALK*7775 “2 # OCTAL NUMBER OF SIT PICK 
ENTAU*L9OMSK MSK 000777 
STRAL*®PLACE PLAC 2 LOWER FOR KH 
ENTAL*PLAC2 UPPER FOR KL 
LSHAL*9D 
SLSU*PLACE 
STRAL*PLAC2 
JP*CSDDt1 TEST 3RD wO 
ENTBKB*01 ADV COUNT 
RJP*RCORDO RECORD PRROR“MULTE BIT PICK 1ST 3 
ENTBKB*01 ADV COUNT | 
ENTAL*TOCS FAILING DATA wD 
STRAL*PLAC3 FOR DISPLAY 
JP*CSODt1 TEST 3RD wD 
ENTSKB*04 1ST wD OKe 3RD wO? 


PAGE 


ADDRESS 


14045 
14046 
14047 
14050 
14051 


14052 


(14053 


14054 
14055 
14056 
14057 
14060 
14061 


14062 
14063 
14064 
14065 
14066 
14067 
14070 
14071 


14072 
14073 
14074 
14075 


14076 


14077 
14100 
14101 


14102 
14103 


0074 


INSTRUCT 


37 
02 
63 
76 
37 


34 
44 
37 
10 


0001 
4241 
4053 
5555 
onNS 


G104 
4240 
oon! 
6527 


5044 4&5 
5047 92 


62 
76 


37 
76 
12 
71 
10 
44 
12 


5046 


04 
44 
34 
37 
76 
37 
12 
44 


34 
37 


GNT5 
5555 


00ne2 
4226 
6622 
T7775 
6616 
6615 
6620 

11 


6615 
66270 
4104 
oon] 
5555 
0001 
4240 
6621 


G1N4 
OONY 











68¢-P 


SEQNO 


004346 
004347 


004350 | 


004351 


004352 


004355 
004354 
004355 
004356 
004357 
004360 
004361 
004362 


004363 
004364 
004365 
004366 
004367 
004370 
004371 
004372 


004373 


004374 
004375 
004376 
004377 
0044900 
004401 
004402 


004403 
008404 


LABEL 


CSDB2 


CSDE2 
CSDF2. 


STATEMENT 
ENTAL*PIN+2 DOES 3RD INPUT wD 
CMAL*BITDAT+2 EQUAL 525252 ? 
UPEQ#LOK+#2 YES=CONT 
RJP#RCORDO RECORD ERROR=3RD wD WRNGe 4 
ENTBKB*01 ADV COUNT 
ENTAL*PIN¢L 2ND wOH7777772 
CMAL*BITDAT+1  YES- 
JPEQ*CSDD2 TEST KL DATA re ADV CoUNT+4 


RJP*RCORDO 
ENTBKB*01 ADV COUNT | 
JPALNZ*CSDE2Q 2ND WOHOS ? 
RJP*«RCORDO RECORD ERROR“2ND wOH0S?6 
ENTSKB*03 ADV COUNT 
JP*#CSDD2+1 TEST KL DATA? 
STRAL*TDCS SAVE DATA wD 
ENTBKB*O1 
ENTAU*CHAG CL AU 
CPAL DROPPED BITS TO 1 
— GF *4S 
LSHA*02 
JPAUNZ*CSDC2] MULTI BIT DROPPED 2ND wD 
RJP*RCORDO  $$RECORD ERROR|=SING BIT DROP?7 ~ 
ENTBKB*02 #£ADV COUNT | : 
RJP*SFK SF Kel17)*°TO PLACY 
ENTAL*PLAC4 
ADDALK*7775 ~2HOCTAL NUMBER OF BIT DROP 
ENTAU*LOMSK 
STRAL*PLAC7 PLAC 7 LOWER FOR KH 
ENTAL*®PLACS 
LSHAL*9D 
SLSU*PLAC7 


RECORD ERROR=2ND wD NOTH7S¢5 


PAGE 


ADDRESS 


14104 
14105 
14106 
14107 
14110 


14111 
14112 
14113 
14114 
14115 
14116 
14117 
14120 


14121 
14122 
14123 
14124 
14125 
14126 
14127 
14150 


14151 
141352 
14133 
14154 
141355 
14136 
14137 
14140 


1414) 
14142 


0075 


INSTRUCT 


12 
02 
61 
76 


37 


12 
02 
61 
76 
37 
63 
76 
37 


34 
G& 
37 
10 


5061 


6414 
4236 
G110 
59555 
0n01 


6413 
4235 
4153 
59555 
0001 
8122 
5555 
0093 


4154 
4240 
0001 
6527 

00 


5044 45 
5047 02 


62 


76 
37 
76 
12 
71 
10 
uy 
12 


5046 


04 


Q145 


5555 
00n2 
4226 
6622 
T7775 
6616 
4242 
GOuY 


1i 
hous 


06¢-P 


SEQNO 


004405 
004406 
004407 
004410 
004411 


004412 
004413 
004414 
004415 
004416 
004417 
004420 
004421 


004422 
OO4425 
004424 
004425 
004426 
004427 
004430 
004451 


004432 
004433 
004434 
004435 
004436 
004437 
004440 
004441 


004442 
OO844S 


LABEL 


CSDC2 


CsdD2 


DERRG 


STATEMENT 
STRAL*PLACS 
JP¥*CSDD2+1 TEST KL? 
ENTBKB*01 ADV COUNT 
RJP*RCORDO RECORD ERROR=MULTI RIT DROPeB 
ENTBKB*01 ADV COUNT 
ENTAL*TDCS FAIL DATA - 
STRAL*PLACB FOR DISPLAY a 
JP*CSDD2+1 TEST 1ST TIME THRU ? 
ENTS8KB*04 | 
STRB*BSAVE Bek#22? 
ENTALK*22 2ND TIME THRU ? 
CMAL*BSAVE NO= KL 2@NO TIME 
JPEQ*DERRQ YES-TEST ERROR DATA 
ENTAUSU1L2MSK MSK#H777706 
ENTAL*LOCHAN KL 2ND TIME THRU 
SLSU*CSDA 
STRAL*CSDA 
SLSU*CSDB 
STRAL*CSDOB 
SLSU*CSDBt3 
STRAL*CSDBt3 
JP*KL TURN TEST KL DATA 
ENTAL*ALERDS ANY ERROR FLAGS ? 
JPALZ*DERROR+1 . NO@ TO EXIT 
ENTAU*PLAC2 SING BIT PICKED UP? 
JPAUNZ*DERROP YES"mDISPLAY - 
ENTAU*PLACS SING BIT DROPPED? 
JPAUNZ*DERROD YES“DISPLAY 
ENTAU*PLAC3 MULTI BITS PICKED? 
JPAUNZ*DERROP YES@DISPAY 


ENTAU®PLAC8 DISPLAY MULTI BITS DROPPED 


PAGE 


ADDRESS 


14143 
14144 
14145 
14146 
14147 


14.150 
14151 
14152 


—-:14153 


14154 
14155 
14156 
14157 


14160 
14161 
14162 
14163 
14164 
14165 
14166 
14167 


14170 
14171 
14172 


(14173 


14174 
14175 
14176 
14177 


142090 
14201 


0076 


INSTRUCT 


GO44 
4154 
0091 
5555 
On0l 


4240 
4243 
4154 
onny 
6444 
0n22 
6444 


4171 


6455 
6564 
4031 
49351 
4034 
GO34 
4037 
G37 


&026 
6470 
G224 
6620 
4207 
G2uY4 
4203 
6621 


4207 
G24U3 


T6¢-F 


SEQNO 


004444 
004445 
004446 
004447 
004450 


0048451 
004452 
004453 
004454 
004455 
004456 
004457 
004460 


004461 
004462 
0044635 
004464 
008465 
004466 
004467 
004470 


004471 
004472 
004473 
OU4474 
004475 
004476 
004477 
004500 


004501 
004502 


LABEL 


DERROD 


DERROP 
DERRC 


DERROR 


REMARK* 


STATEMENT 
JP*DERROR 
ENTALK*7777 DISPLAY DROPPED BITS 


STRAL*FAULTI IN KH/KL C REG 


STRAL*IFAULT 


JP*DERRC 


ENTALK*0000 
JP*DERROD+1 
OUT*KH 
O*IFAULT 

O* IFAULT 
OUT#*KL 
O*FAULTI 
O*FAULTI 


DISPLAY PICKUP BITS 
IN KH/KL C REG 


RJUP*TERMAL 

OUTOV*KH 

OUTOV*KL 

ENTAL*ALERDS DISPLAY FLAGS 
STOP*40 ERROR STOP 

REMARK*AL REGISTER FLAGS 
REMARK*BIT FOR ERROR 

REMARK* 0 IST WD KH NOT#HO00000 


REMARK* @ND WO KH MULTIPLE BITS DROPPED 


1ST KL NOT #05 
0 1ST KL # 7S 


REMARK*® 1 1ST WD KH8&777777 
REMARK* 2 1ST WO KH SINGLE BIT PICKED UP 
REMARK* 3 1ST WO KH MULTIPLE BIT PICKUP 
REMARK* & 3RD WD KH NOT#525252 
REMARK* 5 2ND WD KH NOT#H777777 
REMARK* 6 2ND WD KH #000000 
REMARK* 7 2ND WD KH SINGLE 8IT DROPPED 
8 
9 
1 


REMARK* 


PAGE 


ADDRESS 


14202 
14203 
14204 
14205 
14206 


14207 
14210 
14211 
14212 
14213 


(14214 


14215 
14216 


14217 
14220 
14221 
14222 
14223 


0077 


INSTRUCT 


34 4223 
70 7777 
44 6602 
44% 6603 
34 4olt 


70 = ONNO 
34 4204 
5012 00 
0166053 
016693 
5012 00 
016692 
016602 


76 5447 
5026 00 
5026 00 
12 6470 
5056 40 








Z60-P 


SEQNO 


004503 
004504 
004505 
004506 
004507 


004510 


004511 


004512 
004513 
004514 
004515 
004516 


004517 


004520 
VO4S5el 
004522 
008523 
004524 
004525 
004526 


004527 


004530 
004531 
004532 


004535 — 


004534 
004535 
004536 
004537 


004540 
004541 


LABEL 


SFK © 


IUP*SFK 


PAGE 


STATEMENT ADDRESS 
REMARK* 11 1ST KL SING BIT PICK 
REMARK®*® 12 1ST KL MULTI BIT PICK 
REMARK* 13 3RD KL NOT #525252 
REMARK*® 14 2ND KL NOT #75 
REMARK* 15 2ND KL #0S 
REMARK* 16 2ND KL SING BIT DRoP 
REMARK* 17 2ND KL MULTI BIT DROP 
REMARK*AU CONTAINS THE 1ST DATA ERROR EXAMD 
REMARK*AFTER DETECTING OF ERROR FLAGe ONE OF 
REMARK * PLAC2"SING BIT DROP/OCTAL NO OF BIT POS 
REMARK* (BIT 2 TO O Hie? To 1 H2e ETCe) 
REMARK* -IF ONE CHAN ONLYe LOWER 
REMARK* “IF BOTH CHANSe LOWER/KLe UPPER/KH 
REMARK* PLAC3S-MULTI BIT DROP 
REMARK* “DATA OF LAST CHAN W/FAILURE 
REMARK* PLACS@-SING BIT PICK/OCTAL NO OF BIT POS 
REMARK* (BIT 2 TO O H1e2 TO 1 H2°ETC.) 
REMARK* “IF ONE CHAN ONLYe LOWER 
REMARK* “IF BOTH CHANSe LOWER/KLe UPPER/KH 
REMARK* PLACS=MULTI BIT PICKUP 
REMARK* “DATA OF LAST CHAN W/FAILURE 
REMARK*C REGISTERS KH AND KL DISPLAY OUTPUT 
REMARK *0F TYPE DATA GIVING ERRORS/ALL 7 OR O / 
 JUP*CSDATA #£EXIT 14224 
 RESERV*1 | 14225 
0*#0 ENTRY 14226 
ENTSR*10 BANK O 14227 
ENTAL*17 (17) 14230 
ENTSR*00 BANK 1 1423) 
STRAL*PLAC4Y TO PLAC4 14232 
EXIT 


14233 


0078 
INSTRUCT 
55 4903 
g000gnn 
00 O0n00 
5073 10 
12 0017 
5073 no 
U4“ 6622 


55 4226 








€6¢-P 


SEQNO 


LABEL 


004542 BITDAT 


004543 
004544 
004545 


004546 


004547 
004550 
004551 
004552 
004553 
004554 


004555 


004556 


004557 
004560 
004561 
004562 
004565 
004564 
004565 


004567 


004570 
004571 
004572 
004573 
004574 
004575 
004576 


004577 
004600 


~ToCS 


ALL7S > 
PLAC7 
PLACS8 
PLACS 
MONTIN 


MONINA 
004566 | 


MONINB 


ENTAL*HIMIP 


STATEMENT 


Q00000 

777777 | 

525252 

252525 | 

0*0 TEMP STORE 


777777 CONSTANT 
0*0 TEMP STORE 
0*0 TEMP STORE 
0*0 TEMP STORE 
0*0 ENTRY 
ENTALK*MONTIN 
STRADR*IFAULT 
CL*¥ALERDS 


NOTIFY FLT 
ROUTINE 


ENTICR*02 B2 FoR ERROR RECORD 
ENTBK*00 B2H#0 7 
ENTALK*HICHAN HIGH CHAN FIRST 
STRADR*MONINAY1 © 

ENTALK*HIMIP 
STRADR*MONINS 
ENTAU*UL2MSK 
ENTAL*HICHAN 


MASK#777700 
CHAN TO I/0 INST 


SLSU*MONINC 
STRAL*MONINC 
SLSU*MONINC +4 
STRAL*MONINC +4 
SLSU*MONINE 
STRAL*MONINE 
SLSU*MONINF 
STRAL*®MONINF 


IN MON ENT ADDR TO PROG 
STRADR*¥MONIND 


PAGE 


ADDRESS 


14234 
14235 
14256 
14237 
14240 


1424] 
14242 
14243 
14244 
14245 
14246 
14247 
14250 


14251 
14252 
14253 
14254 
14255 
14256 
14257 
14260 


14261 


14262 


14263 
14264 
14265 
14266 
14267 
14270 


14271 
14272 


0nN79 


INSTRUCT 


0000900 
T7TT777 
525252 
252525 
05 O0n0D 


T77777 
00 0000 
00 6©onno 
00 oO0n0 
00 0000 
70 4aKRSs 
74% 6693 
40 6470 


5072 02 
36 0000 
70 «©6573 
74 4260 
70 6601 
7TH = 4OT1 
10 6455 
12 6573 


04% =<42o75 > 
YH &4ATS 
0G 4301 
BQN 
0G 4310 
U&Q_—s«dwW310 
04 4317 
u&Q =4¥317 


12 6601 
7TH 43NG 


v6e~-7 


SEQNO 


004601 
004602 
004603 
004604 
004605 


004606 


OO46G07 | 


004610 
004611 
004612 
004613 
004614 
004615 


004616 
004617 


~ 004620 


004621 
004622 
004625 


004624 


004625 


004626 
004627 
004630 
004631 
004632 
0046355 
004634 
004635 


004636 
004637 


LABEL 


MONINC 


MONIND 


MONINE 


MONINF. 


STATEMENT 
RUP*CLPIN CLR INPUT AREA 
RJP*#STINK STORE STOPS 004 #£677 
OUT*KH PROVIDE k IDR 
O*CKwOtl 
o*CKwD 
RUP*TERMAL ; 
IN*KH INPUT 
O*PIN 1wD 
2*PIN  W/MON 
ENTAL*MONINX=1, IRJP 
ENTSR*10 TO ENT ADR 
STRAL*ADR 160 OR 360 +K 
ENTSR*00 
OUTOV*KH SEND TERM IOR 
ENTAL*ALERDS DISPLAY PRESENT FLAGS 
ENTAU*CHANtLY& 
RIL RIL 
RUP*#DELAY DELAY 
RJP*RCORDO RECORD ERROR=NO IN MON INT? 042 
ENTBKB*01 ADV COUNT 
SKPIIN*®KH INPUT TERMINATED? 
RJUP*RCORDO RECORD ERROR@IN STILL ACT*1+3 
ENTBKB*01 ADV COUNT 
STRB*BSAVE  2ND TIME 
ENTALK*04 = THROUGH?) 


CMAL*BSAVE YES= 


JPEQ*ALERQ TEST ERROR FLAGS 
ENTALK*LIMIP Low CHAN (KL) 2ND TIME 
STRADR*MONINB 

ENTALK*LOCHAN 


STRADR*MONINAF1 


PAGE 


ADDRESS 


14273 


14274 
14275 
14276 
14277 


14300 


14301 


14302 
14303 
14304 
14305 
14306 
14307 


14310 
143511 
14312 
14313 
14314 
14315 
14316 
14317 


143520 
143521 
14322 


(14323 


14324 
14325 
14326 
14327 


14350 
14331 


0080 


INSTRUCT 


76 6492 
76 6336 
5012 00 
016446 
016445 


76 «5447 
S011 00 

016412 

216412 
12 4341 
5073 10 
44 00N0 
5073 00 


5026 00 


12 6470 
10 6547 
5030 006 


76 0302 — 


76 §555 
37 0001 
5021 0 


76 §555 
37 0001 
42 6444 


70 Onne 


02 6444 
61 4334 
70 6572 
74 4oTL 


70 6564 
74 4260 


G6¢-P 


SEQNO 


004640 
004641 
004642 
004645 


004644 — 


004545 
004646 
004647 
004650 
004651 
004652 
004653 
004654 


004655 
004656 


004657. 


004660 
004661 
004662 
004665 
004664 


004665 
004666 — 


004667 
004670 
004671 


~—004672 


004675 
004674 


004675 
JV04676 


LABEL 


ALERQ 


_MONINX 


ATIME 


STATEMENT 


KNOCK DOWN INTS 
RETURN 


RUP*HONINT 
JP*MONINA 
ENTAL*ALERDS ANY ERRORS? 
JPALZ*LOK+2 NO=TO EXIT 
STOP*40 ERROR STOP 


REMARK*AL CONTAINS FLAGS-BIT 

REMARK*002 NO IN MON INT KHekKL 

REMARK*¥1¢3 IN ACT NOT TERM KHeKL 

REMARK*S1 REG GIVES FALSE INT ENTRANCE ADR 
IJP*MONTIN EXIT 


RESERV#*1 

IUP*MONINO 

JP*MONINF@1 CONTINUE 
0*0 ENTRY | 
ENTALK*ATIME NOTIFY FLT 
STRADR*IFAULT ROUTINE 
ENTICR*02 

ENTBK*00 

CL*ALERDS 

ENTALK*HICHAN HIGH CHAN 
STRADR*TIMEA+2 TO PROGS 
~STRADR*#TWOV+2 | | ons 
ENTAU*HIFACE KH FAST OR SLOW INTERFACE? 
JPAUP*LOK+4 SLOW=-CONT 
ENTSKB*04 FAST= 
RUP*TwOV FAST=20V 
SKP#40 

RUP*TIMEA SLOW=TEST KH 
ENTALK*LOCHAN LOW CHAN 
STRADR*TIMEAt2 TO PROGS 
STRADR*TWOVt2 


PAGE 


ADDRESS 


14332 
14333 
143354 


14335 
143556 


14357 


143540 © 


143541 
143542 


14343 
14344 
143545 
14346 
14347 
14350 
14551 
14352 


14353 


14354 
14355 
14356 
14357 
14360 
14361 
14362 


14363 
14364 


0081 
INSTRUCT 


76 6353 
34 4257 
12 6470 
61 4337 


5056 40 


55 4245 

000000 
55 7713 
34 4&316 


00 Onno 
70 4343 
74 6603 
5072 02 
36 Onno 
40 6470 
70 6573 
74 4uKO 


74 4403 
10 6562 
64 4361 
37 oOonK 
76 «=44nNt 
5050 40 
76 4440 
70 6564 


74 44YuD2 
74 4403 





96¢-P 


SEQNO 


004677 
004700 
004701 
004702 
004703 


004704 
004705 
004706 
004707 
004710 
004711 
004712 
004715 


004714 
004715 
004716 
004717 
004720 


004721 


004722 
004725 


004724 
004725 
004726 
004727 
004730 
004731 
004732 
004733 


004734 
004735 


LABEL 


TIMET 


TWOV 


RUP*TIMEA 
 ENTAL*ALERDS | 


STATEMENT 


ENTAU*LOFACE KL FAST OR SLOW? 
JPAUP*LOK+4 SLOW=CONT 
ENTSKB*04 FAST 

RJUP*TWOV TEST TwO FORCES 
SKP*40 3 


TEST SLOW KL 
ANY ERRORS? 
JPALZ*LOK+3  NO-TO EXIT © 
ENTAUSAUPRAM DISPLAY I-FACE PARAMETERS 
STOP*4Q ERROR STOP 
REMARK*AL FLAGS BIF/ERROR 
REMARK* O05 IF ODA TOO SHORT KHeKL 
REMARK* 1°96 IF ODA TOO LONG KHeKL 


REMARK* 2°7 IF IDA TOO SHORT KHeKL 
REMARK* 3°08 IF IDA TOO LONG KHeKL 
REMARK* 49 IF Two CONSECUTIVE FoRCES GAVE/ 


REMARK* — WERE SEEN AS ONE ACKNOWLEDGE KHeKL 
IJP*ATIME EXIT 

RESERV#1 

0*0 ENTRY 

ENTAU*UL2MSK 777700 MASK 
ENTAL*HICHAN CHAN NO 
SLSU*TWOVC 

STRAL*TWOVC OUT 
SLSU*TWOVA 
STRAL*TWOVA IN 
SLSU*TWOVB41 

STRAL*TWOVB+1 INSTP 
SLSU*TWOVB | 
STRAL*TWOVB  OUTOV 
STRAL*TWOVB=1 QUTOV 


PAGE 


ADDRESS 


14365 
143566 
14367 
14370 
14371 


14372 


14373 
14374 
14375 
14376 


14377 
14400 
14401 
14402 


14403 
14404 


14405 


14406 
14407 
14410 
14411 
14412 


14413 
14414 


0082 
INSTRUCT 


10 6563 
64 4372 
37 on004 
76 = 44N1 
5050 40 


76 4440 
12 6470 
61 4377 
10 6624 
5056 40 


55 4343 

000000 
00 0000 
10 6455 


12 6573 
04 4417 — 
4G 44ul7 
04 4424 
GG 424 
04 4431 
4G 4431 
04 4430 


44 4430 
44 4yO7 











——e 


L6¢~-F 


SEQNO 


004736 
004737 
004740 
004741 


OO474e © 


004743 
004744 
004745 
004746 
004747 
004750 
004751 
004752 


004753 
004754 
004755 
004756 
004757 
004760 
004761 


004762 


004763 
004764 
004765 
004766 
004767 
004779 
004771 
004772 


004775 
004774 


LABEL 


TwOVCc 


TWOVA 


TWOVB 


TIMEA 


STATEMENT 


RJUP*TERMAL 

RJP*HONINT 

OUT*KH OUT CWS/CHANse BOTH CHNS FAST 
O*CKwDte2 

O*CKWD 


-RUPTERMAL CL ACTIVES 


RJP*CLPIN CLR INPUT AREA 


IN*KH INPUT | 

O*PINtL OF 2 WDOS 

O*PTIN 

OUTOV*KH FORCE ouT 

OUTOV*KH © FORCE ouT 

INSTP*KH TERM IN 

ENTAU*PIN 

ENTAL*PIN#1 WAS 2NOD OV/ACK SENT? 
JPALNZ*LOKt2 YES-CONTINUE 
RJP*RCORDO RECORD ERROR=ONLY ONE ACK SEENe 4&t+9 
ENTBKB*01 ADV COUNT 

IJP*TwOV EXIT 

0*0 ENTRY 

ENTAU*UL2MSK 

ENTAL*HICHAN CHAN TO PROG 
SLSU*TIMA | 


STRAL*TIMA IN 
STRAL*TIMD IN 
STRAL*TIMN IN 
SLSU*TIMB 
STRAL*TIMB OUT 
STRAL*TIMG*t3 OUT 


STRAL*TIMM QUT 


SLSU*TIMBt4 


PAGE 


ADDRESS 


14415 
14416 
14417 
14420 


14421 


14422 
14423 
14424 
14425 
14426 
14427 
14430 
14431 


14432 
14453 
14454 
14455 
14436 
144357 
14440 
1444} 


14442 
14443 
14444 
14445 
14446 
14447 
14450 
14451 


14452 
14453 


0083 


INSTRUCT 


76 5S4yu7 
76 6353 
5012 00 
016447 
016445 


76 «S447 
76 6402 
5011 00 
~—6dM016413 

016412 
9026 0 
5026 0 
5015 00 


10 6412 
12 6413 
63 4436 
76 5555 
37 0001 
55 4401 
00 on00 
10 6455 


12 6573 
0% 4503 
44 4503 
G4 4522 
44 4576 
04 4506 
4G 4506 
44 4620 


44 4571 
04 4512 


860-7 


SEQNO 


004775 
004776 
004777 
005000 
005001 


005002 


0050035 


005004 
005005 
005006 
005007 
005010 
005011 


005012 
005013 
005014 
005015 
005016 
005017 
005020 
005021 


005022 
005023 
005024 
005025 
005026 
005027 
005030 
005031 


005032 
005033 


LABEL 


TIMA. 


TImMB 


STATEMENT 


STRAL*TIMBt4 OUTOV 
STRAL*TIME OUTOV 
STRAL*TIMO=1 OUTOV 
STRAL*TIMO OUTOQOV 
SLSU*TIMC 


STRAL*TIMC SIN — 


- STRAL*TIMF SIN 
SLSU*TIMC+2 | 


STRAL*TIMCt+2 SKPIIN 
STRAL*¥TIMFt3 SKPIIN 
SLSU*TIMG 

STRAL*TIMG EXF 
SLSU*TIMH 


STRAL*TIMH EXFov 
STRAL*TIMK EXFoYV 
SLSU*TIMI 
STRAL*TIMI SOUT 
STRAL*TIML SOUT 


~SLSU*TIMI +2 


STRAL*TIMI+2 SKPOIN 
STRAL*TIML+3  SKPOIN 


RJP*TERMAL 


~RUP*HONINT 


IN*KH INPUT TO RECEIVE 


Q*PIN  ODA/TEST ODA 


O*PIN | | 7 
OUT *KH OUT TO PROVID ODA (EFA) 
O*CKwDt2 FOR TEST 

O*CK WD 


RJP*TERMAL 


OUTNV*KH SEND ODA 


PAGE 


ADDRESS 


14454 
14455 
14456 
14457 
14460 


14461 
—~14462 


14463 
14464 
14465 
14466 
14467 
14470 


14471 
14472 
14473 
14474 
14475 
14476 
14477 
14500 


14501 
14502 
14503 


14504 


14505 
14506 
14507 
14510 


14511 
14512 


0084 


INSTRUCT 


44 4512 
4&4 4526 
GG 4601 
4&4 4602 
04 4515 


44) 4515 


QU 4533 
0G 4517 
4G 4517 
GG 4536 
04 4615 
4G 4615 
0G 4544 


G4 4544 
44 4555 
04 4547 
44 4547 
44 4562 
04 4551 
44 4551 
44 4565 


76 «S447 
76 6353 
5011 90 
016412. 
016412 
5012 90 
016447 
016445 


76 S447 
5026 0 








660-7 


SEQNO 


005034 
005035 
005036 


005037 
005040 


005041 


=~ 005042 


005045 
005044 
005045 
005046 
005047 
005050 


005051 
005052 
005055 
005054 
005055 
005056 
005057 
005060 


005061 
005062 
005065 
005064 
005065 
005066 
005067 
005070 


005071 
00507e 


LABEL 


TIMC 


TIMD 


TIME 


TIMF 


TIMH 


Timi 


STATEMENT 
ENTAU*CHAN+20 & US + 
ENTAL*#CHAG 4 US + 
SIN*KH 2 US# 10 US 
RUP*DELAY PROCESS REQUEST 
SKPIIN*®KH IDR/ODA DETECTED AFTER 10US ? | 
RUP*RCORDO RECORD ERROR-ODA T0o SHORT? ot 
ENTBKB*01 ADV COUNT | 
IN*KH INPUT TO RECEIVE 
O#PIN  ODA/TEST ODA 
O*PIN 
RUP*TERMAL 
OUTOV*#KH SEND ODA 
LSHAL*22 
LSHAL*17 
IUP*LOK+1 8 US 
O*LOK+1L + 
SIN*KH 2 US # 18 US 
ENTAU*CHAN+17 PROCESS IDR 
RUPeDELAY IF DETECTED 
SKPIIN*KH WAS IDR DETECTED? 
SKP#40 YES#ERROR 
RUP#RCORDO = RECORD ERROR-ODA TOO LONG? 146 
ENTBKB*01 ADV COUNT 
RUP*TIMGG SET UP IDA ACTS/CwS 
RXL 
EXFOV*KH SEND EFA/GET IDA 
ENTAU*CHAN+10  4USt+ 
ENTAL*CHAG 4 US + 
SOUT#KH 2 US # 10 US 
RUP*DELAY PROCESS ODR 
SKPOIN*KH ODR DETECTED AFTER 10 US? 


PAGE 


ADDRESS 


14513 
14514 
14515 
14516 
~~ 146517 


14520 
14521 
14522 
14523 
14524 
14525 
14526 
14527 


14530 
14531 
14532 
14533 
14534 
14535 
14536 
14537 


14540 
14541 
14542 
14543 
14544 
14545 
14546 
14547 


14550 
14551 


0085 


INSTRUCT 


10 6553 
12 6527 
5001 00 
76 0302 
5021 00 


76 5555 
37 0001 
5011 0 

016412 

016412 
76 5447 
5026 n0 
5046 22 


S046 17 
55 4532 

014533 
5001 00 
10 6552 
76 0392 
5021 900 
5050 40 


76 65555 
37 o0n1 
76 4613 
5032 90 
5027 900 
10 6543 
12 6527 
5002 n0 


76 0302 
5022 00 














00E-7 


SEQNO 


005073 
005074 
005075 
005076 
005077 


005100 
005101 
005102 
005103 
005104 
005105 
005106 
005107 


005110 
005111 
005112 
005113 
005114 
005115 
005116 
005117 


005120 
005121 
005122 


005123 | 


005124 
005125 
005126 
005127 


005130 
005131 


LABEL 


TIMK 


TIML 


TIMM 


TIMN 


TIMO 


RJP*RCORDO 


STATEMENT 


RUP*RCORDO RECORD ERROR@=IDA TOO SHORT?2+7 
ENTSKB*01 ADV COUNT 

RJP*TIMGG SET UP IDA ACTS/Cws 
EXFOV*KH SEND EFA/GET IDA 
LSHAL*22 

LSHAL *22 | | 

IJP*LOKt1 8 US 

O*LOKt1 + | | 

SOUT *KH 2 uS # 18 US 
ENTAU*CHANt17 PROCESS ODR 
RJP*DELAY IF DETECTED 


SKPOIN*KH WAS ODOR DETECTED? 
SKP*«40 YES=-ERROR 
RJP*RCORDO RECORD ERROR=-IDA TO0N LONG? 3+8 
ENTBKB*01 ADV COUNT 
OUT*KH OUT CWS/SLOW CHAN 
O*CKwD+2 | 
O*CKwD 
RJP*TERMAL TERM ALL ACTS 
RJP*CLPIN CLR INPUT AREA 
IN*KH INPUT OF 
O*PINt1 Two wOs 
O*PIN 
OUTOV*KH FORCE ouT 
OUTOV*KH FORCE QuT OS 
LSHAU*20 WAIT GUS TO ALLOW 2ND REQ DETECT 
INSTP*KH TERM IN 
ENTAU*PIN 
ENTAL*PIN#1 WAS 2ND OV/ACK SENT? 
JPALNZ*LOK+2 YES-CONTINUE 
RECORD ERROR=ONLY ONE ACK SEENe 4t+9 


PAGE 


ADDRESS 


14552 
14553 
14554 
14555 
14556 


14557 
14560 
14561 
14562 
14563 
14564 
14565 
14566 


14567 
14570 
14571! 
14572 
14573 
14574 
14575 
14576 


14577 
14600 
14601 
14602 
14603 


14604 


14605 
14606 


14607 
14610 


0N86 


INSTRUCT 


76 5555 
37 0001 
76 «4613 
5027 90 
5046 22 


2046 22 — 
55 4561. 

014562 
9002 0 
10 6552 
76 0302 
5022 00 
5050 40 


76 5555 
37 OOO) 
5012 900 

016447 

016445 
76 S447 
76 64N2 
5011 90 


016413 
016412 
59026 00 


5026 00 


5045 20 


5015 00 


10 6412 
12 6413 


635 4611 
76 5555 





TOe-F 


SEQNO 


005132 
005133 
005134 
005135 


005136 


005137 
005140 
005141 
005142 
0051435 
005144 
005145 
005146 


005147 
005150 


005151 — 


005152 
005155 
005154 
005155 
005156 


005157 


005160 
005161 
005162 
005163 
005164 
005165 
005166 


005167 


005170 


LABEL 


TIMGG 


TIMG | 


COMIN 


COMINA 


STATEMENT 

ENTBKB*01 ADV COUNT 
IUP*TIMEA EXIT 

O*0 ENTRY 
RUP*HONINT STORE RIL 
EXF*KH EXF TO GIVE RETURN 
O*CKWwDt3 IDA BY EIR 
O*CKwD 

OUT*KH OUTPUT TO RECEIVE 
O*CKwD IDA/TEST IDA 
O*CKwD © | | 
RUP*TERMAL 

IJP*TIMGG EXIT 

O*U ENTRY 

ENTALK*CDMIN NOTIFY FLT 
STRADR*IFAULT ROUTINE 


REMARK*ASSUME 1219 /CDM/ WHILE TESTING 


ENTICR*02 B2 ERROR RECORD 
ENTBK*00 B2 # QO 

CL*PLACE | | 
CL*ALERDS CL ERROR DATA STORE | 
ENTAL*HIBCP 60 OR 260 + 2KH 
ADDALK*01 = | 
STRADR*CDMIND TO PROG 
STRADR*CDMING | 

RJP*STRMEM STORE VALUE N IN ADDR N 
EXF*KH COM WOS KH 

O*CKWDA 

O*CKWDA 

OUT*KH IOR SOURCE 

O*CKwOt3 

O*xCKw)D 


PAGE 


ADDRESS 


14611 
14612 
14613 


(14614 
14615 


14616 


14617 


14620 
14621 
14622 
14623 
14624 
14625 


14626 
14627 


14630 
14631 
14632 
14633 
14654 


14655 
146356 
14637 
14640 
14641 
14642 
14643 
14644 


14645 


~—6©14646 


0n87 


INSTRUCT 


37 0001 
55 4440 


00 onno 


76 6353 
5013 0 


016450 
016445 
5012 90 
016445 
016445 
76 5447 
55 44613 
00 ono 


70 4625 
74 6603 


[072 02 
36 60000 
40 6615 
4&0 6470 
12 6575 


71 #0001 
7G 4657 
74 47ND 
76 6420 
5013 00 

016451 

016451 
5012 900 


016450 
016445 











COEF 


SEQNO 


005171 
005172 
005175 
005174 
005175 


005176 
005177 


- 905200 


005201 
00520e 
005203 
005204 
005205 


005206 
005207 
005210 
005211 
005212 
0052135 
005214 
005215 


005216 


005217 
005220 


005221 
005222. 


0052235 
005224 
005225 


005225 
005227 


LABEL 


COMINB 


COMINC 


COMIND © 


COMINE 


CDOMINF 


COMING 


CMAL*CDMINAW1 


JPEQ*CDMFLG 


RUP*RCORDO 
ENTBKB*01 


ADV 


RELOADED w/COM wns? 


COUNT 


STATEMENT 

RJUP*TERMAL 

IN*KH INPUT wW/CDM 

GQ*PIN¢+1L 2WDOS 

O*PIN 

OUTOV*KH SEND IDR 7 1ST WD 
 ENTAU*CHAN*t20— 

RJP*DELAY | 

ENTSR*10— | | 

ENTAL*ADR 61 OR 261+2KH 

ENTSR*00 . | 

CMAL*CDMINE+2 CACW # PINt1? 

JPEQ*LOK*+2 YES=-CONT 

RJP*RCORDO RECORD ERROR@EARLY CDMe 9 

ENTBKB*01 ADV COUNT 

IN*KH RESET INPUT 

G*ePIN+1 w/COM 

O*PINt1 lwOd 

OUTOV*KH SEND TERMINATING IDR 

ENTAU*CHAN+#+10 | . 

RJP*DELAY 

SKPIIN*KH INPUT ACT? 

SKP*4Q YES=CONTINUE 

RJP*RCORDO RECORD ERROR@ACT WAS TERMe 

ENTBKB*01. ADV COUNT | 

ENTSR*¥10 oe 

ENTAL*ADR 61 OR 261+2KH 

ENTSR*00 INPUT CACW 


YES=TEST COM PARAMETER 
RECORD ERROR=CDM wD WRNGe 


2 


1 


PAGE 


ADDRESS 


14647 
14650 
14651 
14652 
14653 


~—614654 
~—~14655 


14656 


14657 


14660 
14661 
14662 
14663 


14664 
14665 
14666 
14667 
14670 
14671 
14672 
14673 


14674 
14675 
14676 


149677. 


14700 
14701 
14702 
14703 


14704 
14705 


0088 


INSTRUCT 


76 Suu? 
S011 AO 
416413 
016412 
5026 0 


10 6553 


76 0302 


5073 10 
12 onno 
5073 00 


02 44647 


61 4664 
76 5555 


37 onnl 
2011 00 

416413 

016413 
5026 00 
10 65483 
76 0302 
[9021 00 


5050 40 
76 «5555 
37 OON! 
5073 10 
12 0n00 
5073 0 
02 4643 
61 4712 


76 5555 
37 0071 











€0E-7 


SEQNO 


005230 
005231 
005232 
005235 
005234 


005235 
005236 
005237 
005240 
005241 
005242 
005245 
U05244 


005245 
005246 
005247 
005250 
005251 
005252 
005253 
005254 


005255 
005256 
005257 
005260 
005261 
005262 
005265 
005264 


LABEL 


CDMFLG — 


COMINH 


CDMINI 


005265 CDMINJ 
005266 FUNPGA 


ENTAL*TWLV1B | 


~ STRAL*FAULTI 


STOP*4O 


STATEMENT 


CMAL*COMINJ 
JPNOT#LOKtS 
RJP*RCORDO 

STRAL*PLACE 


CACw NOT CHANGED? 

TRUE@ERROR 

RECORD ERROR=CDM WOS NOT STRD*S 

OR STRD INTO WRNG LOCS. | 
(1218 OR 1219 (CDM) MODE 


JPALNG*COMINI 
ENTAU*ALERDS 
JPAUZ*COMINH+4 
STRAL*FAULTI 
ENTAL*PLACE 
RJP*DISPOC : 
STOP*«4O ERROR STOP IF 1219 MODE 
REMARK*AU CONTAINS ERROR BITS 


1218=CONT 
ANY ERRORS? 

TO EXIT 
CDM PARAMETER ON C 
FALSE CDM wD LOC 


REMARK* 0 IF COM DETECTED ON 1ST IDR 

REMARK* 1 IF ACT wAS TERMINATED BY 2ND. IDR 
REMARK* 2 IF RELOAD WD WAS NoT CORRECT 

REMARK* 3 IF RELOAD DID NOT CHANGE INPUT BACWS 
REMARK*AL CONTAINS WRONG RELOAD WD IF NOTHO 
REMARK*C CONTAINS FLAGe NEG IF 1218+ POS IF 1219 
TUP*COMIN EXIT 

RESERV#1 | 


CDM PARAMETER ON C 

COM DETECTED? 
NO-TO EXIT 

YES=DISPLAY AND STOP 


ENTAU®ALERDS 
ENTALK*16 
CMAL*ALERDS 
JPEQ*COMINH+t+4 

ENTAL*PLACE 

RJUP*DISPOC | 

ERROR STOP IF 1218 MODE 


O*¥PIN+2 
0*0 ENTRY 


PAGE 


ADDRESS 


14706 
14707 
14710 
14711 


14712 — 


14713 
14714 
14715 
14716 
14717 
14720 
14721 


14722 


14723 


14724 
14725 
14726 


14727 


14730 
14731 
14732 
14733 


14734 
14735 


CORO 


INSTRUCT 


02 4734 
63 4712 
76 5555 
44 6615 
12 6472 


67 4724 
10 6470 
60 4722 
G4 6602 
12 6615 
76 S13 
5056 40 


55 4625 
000000 


Ba «66N2 


10 6870 
70 «0016 
02 6470 
61 4722 
12 6615 
76 5413 
5056 40 


016414 
00 ANNO 











vOE-P 


SEQNO 


005267 
005270 
005271 
005272 
005273 


005274, 
005275 — 


005276 
005277 
005300 
005301 
005302 
0053053 


005304 
005305 
005306 
005307 
005310 
005311 
005312 
095313 


005314 
005315 
005316 
005317 
005320 
005321 
005322 
005323 


005324 


LABEL 


005325 FUNPA 


STATEMENT 
ENTAL*NTOSTD ABORT FUNCTION PRIORITY | 
UPALP#LOK#2 TEST IF STD 1218 BUFFERING 
IUP*FUNPGA EXIT 
ENTALK*FUNPGA NOTIFY FLT 
STRADR¥*¥IFAULT ROUTINE 

CL*PLAC8§ = CLR AST TIME (KH) F6AG*H7S 2NDT 
CL*AUERDS CLR ERROR 
CL*¥ALERDS FLAG STORES 
ENTALK#HICHAN  HICHAN TO 
STRADR#FUNPA CHACHA 
ENTALK*HEIP LOC OF EIM ENT ADR KH 
STRADR*PRBBA TO PROG 

—STRADR*PRBBC 
STRADR*PRBBD 
STRADR*PRAALL=2 
ENTALK*HEFMIP LOC OF EF M ENT ADR KH 
STRADR*PRBBAt2 
STRADR*PRBBF 
STRADR*PRBBG 
ENTALK*HOMIP LOC OF ODM ENT ADR KH 
STRADR*PRBBB+2 
STRADR*PRBBC+2 
STRADR*PRBBG+2 - | 
ENTALK*HIMIP LOC OF ID ™ ENT ADR KH 
STRADR*PRBBB on % 
STRADR*PRBBD+2 
STRADR*PRBBF +2 
ENTICR*02 B2HO FOR EA CHAN INITIALLY 
ENTBK*00 

ENTAU*UL2MSK 777700 

ENTAL*HICHAN CHAN TO 


PAGE 


ADDRESS 


14736 
147357 
14740 
14741 
14740 


14743 
14744 


14745 
14746 
14747 
14750 
14751 
14752 


14753 
14754 
14755 
14756 
14757 
14760 
14761 
14762 


14763 
14764 
14765 


—6©149'766 


14767 
14770 
14771 


14772 


14773 


14774. 


0090 


INSTRUCT 


12 
65 
55 
70 
74 


40. 
40 


40 
70 
74 
70 
74 
74 


74 


74 
70 
74 
74 
74 
70 
74 


74 
74 
70 


74 


74 
74 


5072 


36 
10 


6626 
G741 
4735 
4735 
6603 


4245 


6467 
6470 
6573 
G774 
6576 
5161 
5226 


(5254 


3322 
6577 
5163 
5303 
5066 
6600 
5205 


5230 
3070 
6601 
5203 
5256 
9305 

N2 
Onno 


6455 


12 6573 


SOE-?P 


SEQNO 


005326 
005327 
0053350 
005331 


— 005332 


005353 
005334 
005335 
005336 
005337 
005340 
005341 
00534e 


005343 
005344 
005345 
005346 
005347 
005350 
005351 
005352 


005353 
005354 
005355 
005356 
005357 
005360 
005361 
005362 


005363 
005364 


LABEL STATEMENT 


SLSU*PRAAA PROG I/0 INST 


STRAL*PRAAA 
STRAL*PRAAE 
STRAL*PRAAG 
STRAL *PRAAK 


STRAL*PRAAM 
SLSU*PRAAB 
STRAL*PRAAB 
STRAL*PRAAD 
STRAL*PRAAE+3 
STRAL*PRAAGt3 
STRAL*PRAAL=3 
STRAL*PRAAN@3 


SLSU*PRAABt3 
STRAL*PRAABt3 
STRAL*PRAAF +3 
STRAL*PRAAH+3 
STRAL*PRAAKt3 
STRAL*PRAAM*t3 
SLSU*PRADD 

STRAL*PRADD 


STRAL*PRAAL+3 
STRAL*PRAAN*t3 
SLSU*PRAADtH3 
STRAL *PRAADtT3 
STRAL *®PRAAF 
STRAL*PRAAH 
STRAL*PRAAL 
STRAL*PRAAN 


ENTALK*PRAAB 
STRADR*PRAABH1 


EX 
EX 
EX 
EX 


EX 


F 
c 
EF 
F 


* 


OUT 
OUT 


OUT 
OUT 
OUT 
OUT 


EXFOV 
EXFOV 
EXFOV 
EXFOV 
EXFOV 


OUTOV 


IN 
IN 
IN 
IN 


PREP PR2345 
FOR OUTPUT LAST CONDITION 


OUTOV . 


oUTOV 


IN 


PAGE 


ADDRESS 


14775 
14776 
14777 
15000 
15001 


15002 
15003 
15004 


15005. 


15006 
15007 
15010 
15011 


15012 
15013 
15014 
15015 
15016 
15017 
15020 
15021 


15022 
15023 
15024 
15025 
15026 
15027 
15050 
15031 


15032 
15033 


0091 


INSTRUCT 


04 5165 
44 5165 
44 5232 
44 5260 
4& 53N7 


44 5072 
0% 5171 
44 5171 
44 S52n7 © 
44 5235 
44 5263 
G4 5313 
44 5076 


04 5174 
44 5174 
44 5243 
44 So7t 
44 5312 
44 5075 
04% 5215 
44 5215 


44 5321 
4G 5194 
04 S212 
44 5212 
44 5240 
44 5266 
44-5316 
bu «S1N} 


70 «5171 
74 5179 








908-F 


SEQNO 


005365 
005366 
005367 
005370 


— 005371 


005372 


005373 
— 005374 


005375 
005376 
005377 
005400 
005401 


005402 
005403 
005404 
005405 
005406 
005407 
005410 
005411 


005412 
005415 
005414 


. 005415 


005416 


005417 
005420 
005421 


005422 
005423 


LABEL 


LASTO 


LASTIN 


PRBBG 


PRAAM 


STATEMENT 


ENTAL*PRAAD+t+2 
ADDALK*#01 

STRAL*PRAADt1 
STRAL*PRAAF <2 
ENTAL*PRAAH-1 


ADDALK*01 
STRAL *PRAAH=2 


RUP*PR2345 TEST FN PRIO/OUTPUT LAST 


ENTALK*PRAAB43 PREP PR 2545 
STRADR*PRAAB=1 FOR INPUT LAST CONDITION 
ENTAL*PRAADt2 

STRAL*PRAADtL 

STRAL *PRAAF <2 

ENTAL*PRBBB SWITCH PRIORITY w/INPUT LAST 


ENTAU*PRBBBt2 * 
STRAL*PRBBBt2 * 
STRAU*PRBBB * 
ENTAU*PRBBF 
ENTAL*PRBBF +2 
STRAU*PRBBF +2 
STRAL*PRBBF 


ENTAL*®PRAAH=1 
STRAL*PRAAH=2 
RJP*#PR2345 
SIL : | 
SXL . IGNORE EIR - — 
ENTAL*HEFMIP EF MON ENTeHI PRIO W/IN LAST 
STRADR*PRAAC 
ENTAL*HOMIP 


TEST FN PRIO/INPUT LAST 


OD MON ENTeLO PRIO w/IN LAST 


STRADR*¥PRAAC#HL 
EXF*KH EXF FOR EFM 


PAGE 


ADDRESS 


15034 


15055 
15036 
150357 
15040 


15041 
15040 
15043 
15044 
15045 
15046 
15047 
15050 


15051 
15052 
15053 
15054 
15055 
15056 
15057 
15060 


15061 
15062 
15063 


15064 


15065 
15066 
15067 
15070 


15071 
15072 


0092 


INSTRUCT 


12 
71 
a4 
44 
12 


71 


44 


76 
70 
74 
12 
Gy 
ug 


12 
10 
Uy 
46 
10 
12 
46 
uy 


12 
Gy 
76 


5034 
5036 


12 
74 
12 


74 


5013 


3211 
0n01 
5210 
9236 
5265 


0001 
5264 
5154 
5174 
5170 
S211 
5210 
5236 


5203 
S205 
5205 
5203, 
5303 
3305 
5305 
9303 


5265 
5264 
5154 

NO 

nO 
6577 
5347 
6600 


5350 
0 


LOe-F 


SEQNO 


005424 
005425 


005426 


005427 
095430 


005431 
005432 
005433 
005434 
005435 
005436 
005437 
005440 


005441 
005442 
005443 
005444 
005445 
005446 
005447 
005450 


005451 


005452 » 


005453 
005454 
005455 
005456 
005457 
005460 


005461 
005462 


LABEL 


PRAAN 


STATEMENT 
2*CKwD 
2*CKwD 
EXFOY*KH EFM 
OUT*KH OUT FOR ODM AND IOR 
2*CKwD | 
2*CKwD 


IN*KH IN FOR INPUT LAS CONDITION 
O*PIN 


O*PIN | | 

OUTOV*KH ODM 

RUP*SETPR PREP INT ENTS 

RIL | 
SKP*90 RECORD ERROR“IF OD MON 1ST» 10 
LSHAL*00 

LSHA«00 | 
ENTAL*PLAC8 41ST TIME THRU? 
JPALNZ*#PEST NO@TEST FLAGS 
ENTALK*7777 YES=SET FLG#777777 
STRAL#PLACB ) 

ENTAL*ALERDS KH FLAGS 
STRAL®AUERDS TO AUERDS 
CL*ALERDS CLR ERROR FLG STORE 
ENTALK*LOCHAN LOCHAN TO 
STRADR*FUNPA CHACHA 
ENTALK*LEIP LOW CHAN MON INT ENTS TO 
STRADR*PRBBA PROG 

STRADR*PRBBC 

STRADR*PRBBD 

STRADR*PRAALL@=2 

ENTALK*LEFMIP 

STRADR*PRBBA+2 


PAGE 
ADDRESS 


15073 
15074 
15075 
15076 
15077 


15100 
15101 
15102 
15103 
15104 
15105 
15106 
15107 


15110 
98111 
15112 
15113 
15114 
15115 
15116 
15117 


15120 
15121 
15122 
15123 
15124 
15125 
15126 
15127 


15130 
15131 


0093 
INSTRUCT 


216445 
216445 
5027 00 
5012 00 
216445 


216445 
5011 0 
016412 
016412 
5026 00 
76 5340 
5030 00 
5050 00 


5046 00 
5047 00 
12 4243 
65 5145 
70 7777 
GG 4aKs 
12 6470 
44 6467 


40 6470 
70 6564 
74 =&4TTK 
70 6567 
74 5161 
7TH 5226 
74 5254 
74H 5322 


70 6570 


74 5163 








80E-F% 


SEQNO 


005463 
005464 
005465 
005466 
005467 


005470 
005471 
005472 
005473 
005474 
005475 
005476 
005477 


005500 
005501 
005502 
005503 
005504 
005505 
005506 


005507, 


005510 
005511 


005512. 
005513 | 


005514 
005515 
005516 
005517 


005520 
005521 


LABEL 


PEST 


STATEMENT 


STRADR*PRBBF 
STRADR*PRBBG 
ENTALK*LOMIP 
STRADR*PRBBB+2 
STRADR*PRBBC+2 


-STRADR*PRBBG+2 


ENTALK*LIMIP 

STRADR*PRBBB 

STRADR*PRBBD+2 
STRADR*PRBBF +2 

JP*FUNPA=3 RETURN TO DO KL 
ENTAU*AUERDS ANY ERRORS 
ENTAL*ALERDS KH OR KL? 


JPAUNZ*LOK+2 YES=STOP 
JPALZ#LOK+2 NO=TO EXIT 
STOP*40 ERROR STOP 


REMARK*AU CONTAINS BITS FOR KH ERRORS 


REMARK*AL CONTAINS BITS FOR KL ERRORS 
REMARK* O0¢5 IF EF MON 1ST OUT» IN LAST (EIM) 


— REMARK* 1 IF OUT MON 1STe OUT LAST (IDM) 


- -REMARK* 6 IF IN MON 1STe IN LAST (ODM) 


PR2345_ 


 REMARK® 207 IF OUT MON 1ST OUT*IN LAST (CEIM) 
REMARK*® 398 IF IN MON 1ST OUTeIN LAST (EI) 


REMARK* & | IF EF MON 1ST» OUT LAST (TDM) 
REMARK* 9 IF IN MON 1STe IN LAST (EFM) 

REMARK*® 10 IF OUT MON 1STe IN LAST (EFM) 
IUP*FUNPGA EXIT 

RESERV#1 

0*0 ENTRY 


REMARK*COPY SHOWS OUTPUT LAST PROG WKH 
RJP*TERMAL CLR ALL ACTS 


PAGE 


ADDRESS 


15152 
15153 
151354 
15155 
15156 


15137 


— 15140 
—618141— 


15142 
15143 
15144 
15145 
15146 


15147 
15150 
15151 


15152 


15153 


(15154 


15155 


74 


74 
70 
74 
74 


74 


70 


74 
74 
74 
34 
10 
12 
62 


61 
50 


55 


00 


76 


0094 


INSTRUCT 


9303 
5066 
6571 
9205 
5230 


5070 
6572 
5203 
5256 
9305 
&771 
6467 
6470 


5151 
5152 
56 40 


4735 
000090 
0090 


5447 


60E-F 


SEQNO 


00552e 
005525 
005524 
005525 
005526 


005527 
005530 
005531 
005532 
005555 
005534 
005535 
005536 


005537 
005540 
005541 
005542 
005543 
005544 
005545 
005546 


005547 
005550 
005551 
005552 
005553 
005554 
005555 
005556 


005557 
005560 


LABEL 


PRBBA 


PRAAA 


PRAAB 


PRBBB 


PRAAD 


STATEMENT 


RJP*HONINT DROP ALL MON INTS 
RXL ALLOW EIR 
SIL LOCK OUT MON INTS 


ENTAL*HEIP EI MON ENTeHI PRIO 
STRADR*PRAAC : 

ENTAL*HEFMIP EF MON ENTeLO PRIO 
STRADR*PRAAC41 TO PREP ENTS ROUTANE 
EXF*KH EXF FOR EFM AND EIM 

2*CkwD 

2e*xCKwD | 

JP*LOK+l +3 IF OUTPUT LAST 

OUT*KH JP*LOK+a IF INPUT LAST 

O*CKwD OUT FOR OUTPUT LAST COND © 

O*CKwD 

EXFOV*eKH EFM AND EIM 

RJP*SETPR PREP INT ENTS 

ENTAUSCHANTL7 

ENTAL*ALEROS DISPLAY FLAGS 

RIL 

RJUP*DELAY RECORD ERROR@=IF EF MON 15T?045 
SIL 

ENTAL*HIMIP IN MON ENTeHI PRIO IF OUT LAST 
STRADR*PRAAC Lo PRIORITY IF INPUT LAST 
ENTAL*HOMIP OUT MON ENTeLO PRIO IF OD LAST 
STRADR*¥PRAACHL HI PRIO IF INPUT LAST 
OUT*KH OUT TO GIVE ODMeIOR AND 

2eCKwDOtl OUTPUT LAST COND 

2*CKwD TACWHt1! IF OUT LASTe#CACWrINL 
IN*KH IN TO GIVE IDM 

2*PIN 

2*PIN 


PAGE 


ADDRESS 


15156 
15157 
1516N 
15161 
15162 


15163 
15164 
15165 
15166 
15167 
15170 
15171 
15172 


15173 
15174 
15175 
15176 
15177 
15200 
15201 
15202 


15203 
15204 
15205 
15206 
15207 
15210 
15211 
15212 


15213 
15214 


0095 
INSTRUCT 


76 6353 
9932 90 
5034 90 
12 6576 


7% S347 


12 6577 
74 5350 
5013 900 
2164845 
2164465 
34 S171 
5012 n0 
016445 


0164485 
5027 00 


76 5§340 


10 6552 
12 6870 
5030 90 
76 «0302 
5034 0 


12 6691 
74% 5347 
12 6600 
74 5350 
50i2 90 

216446 

216445 
5011 910 


216412 
216412 


OlE-F 


SEQNO 


005561 
005562 
005565 
005564 
005565 


005566 
005567 


005570 


005571 
005572 
005573 
005574 
005575 


005576 
005577 
005600 
005601 
005602 
005603 
005604 
005605 


005606 


005607 


005610 


005611 
005612 
005615 
005614 
005615 


005616 
005617 


LABEL 


PRADD 


PRBBC 


PRAAE 


PRAAF 


SKP*00 


LSHAY*00. 


STATEMENT 


OUTOV*KH 
RJP*SETPR 
ENTAU*AVERDS 
ENTAL*ALERDS 
RIL 


PROCESS AND PREP ENTS 
DISPLAY 
ERR FLGS 


RECORD ERROR“IF QUT MON 1ST?1 
LSHAL*00 — 


SIL 
ENTAL*HETP 
STRADR*PRAAC 
ENTAL*HOMIP | OUT MON ENTeLO PRIO 
STRADR*PRAAC 41 


EIM ENTeHI PRIO 


EXF *KH EXF FOR EIM 

Oo*CKwD 

O*CKwD 

QUT *KH OUT FOR ODMe IDR AND 
e*xCKwOtl OUT LAST COND 
2*CKwDd 


IN*KH IN FOR ODOR OR 
O*PIN INPUT LAST COND | 


O*PIN 

EXFOV*KH  - 

RJP*SETPR SET ENT ADORS 

ENTAU*AUERDS DISPLAY. 

ENTAL*ALERDS FRR FLGS 

RIL | | 

SKP*00 RECORD ERROR-IF OUT MON 1STe2+7 
LSHAL*00 DELAY w/NOOPS : 
LSHA*00 

SIL 


RECORD ERROR-IF IN MON 1STe°6 | 


PAGE 


ANDRESS 


15215 
15216 
15217 
15220 
15221 


15222 
15223 
15224 
15225 
15226 
15227 
15230 
15231 


15232 
15233 
15254 
15235 
15256 
15237 
15240 
15241 


15242 
15243 
15244 


15245, 


15246 
15247 
15250 
15251 


15252 
15253 


0nN96 


INSTRUCT 


5026 0 
76 5340 
10 6467 
12 6470 | 
5030 n0 


20580 An 
9046 0 


5045 90 


9034 90 
12 6576 
74 5347 
12 6600 
74 5350 


5013 900 
016445 
016445 

5012 00 
216u46 

—6 216445 

$011 nO 
016412 


016412 
5027 00 
76 5340 


10 6467 — 


12 6470 
5030 60 
5050 0 
S046 90 


5047 900 
5034 0 


TTE-P 


SEQNO 


005620 
005621 
005622 


005625 


005624 


005625 


005626 
005627 
005630 
005631 
005632 
005655 
005634 


005635 
005636 


005637 


005640 
005641 
005642 
005643 
005644 


005645 
005646 
005647 
005650 
005651 
005652 
0056535 
005654 


005655 
005656 


LABEL 


PRBBD 


PRAAG 


PRAAH 


PRBBF 


PRAAK 


ENTAL*HIMIP 


STATEMENT 


ENTAL*HEIP EIM ENTeHI PRIO 
STRADR*PRAAC 

ID MON ENTeLO PRIO 
STRADR*PRAACt+1 | 


EXF*KH EXF FOR EIM 


o*CKwD 
o*CKwDd 
OUT*KH 
O*CKwDtl1 
O*CKWD 
IN*KH 
2*PIN 
2*PIN 


OUT FOR IDR OR 
OUTPUT LAST COND 


INPUT FOR IDM OR 
INPUT LAST COND 


EXFOYV*KH 

RJP*SETPR SET ENT ADDRS 
ENTAU*AVERDS DISPLAY 
ENTAL*ALERDS ERR FLGS 
RIL 
SKP¥*Q0 
LSHAU*00 
LSHA*00 


RECORD ERROR@IF ID MON 1ST+3+8 


ENTAL*HEIP 
STRADR*PRAALL 
ENTAL*HIMIP 
STRADR*¥PRAAC 
ENTAL*HEFMIP 
STRADR¥*¥PRAAC +] 
EXFx*XKH EXF TO GIVE EFM 
2*CKwDd 


ID MON INTeHI PRIO W/OK LAST 


EF MON INTeLO PRIO W/ID LAST 


2*CKwD. 


EXFOV*KH EFM 


PAGE 


ADDRESS 


15254 
15255 
15256 
15257 
15260 


15261 
15262 
15263 
15264 
15265 
15266 
15267 
15270 


15271 
15272 
15273 
15274 
15275 
15276 


15277 


15300 


15301 


15302 
15303 


15304 


15505 
15306 
15307 
15310 


15311 
15312 


0097 
INSTRUCT 


12 6576 
74 5347 
12 6601 
74 5350 
5013 900 


016445 
016445 
S012 00 
016446 
016445 
5011 00 
216412 — 
216412 


5027 00 
76 5340 
10 6467 
12 6470 
5030 00 
5050 00 
5045 00 
5047 00 


12 6576 


7TH §324 


12 6601 
74 5347 
12 6577 
74 5350 
5013 900 

216445 


216445 
5027 00 





clé-P 


SE QNO 


005657 
005660 
005661 


005662 


005665 
005664 


005665 


005666 
005667 
005670 
005671 
005672 
005673 


005674 
005675 
005676 
005677 


005700 


005701 
005702 
005703 


005704 
005705 
005706 
005707 
005710 
005711 
005712 
005713 


005714 
005715 


LABEL 


PRAAL 


PRAALL 


SETPR 


PRAAC 


STATEMENT 
OUT*KH OUT TO GIVE IDR 
O*CKwD+1 +1 0D peavey ID LAST 
O*CKwD 


IN*KH IN FOR IDM AND 
2*PIN INPUT LAST CONDITION 


2*PIN 


OUTOV*KH IDM 


ENTAL*SPECIA  NOQOP 


ENTSR*10 | | 
STRAL*ADR SIL AND IGNORE EIM 
ENTSR*00 

RJP*SETPR PREP INT ENTS 
ENTAU*AUERDS DISPLAY 

ENTAL*ALERDS ERR FLGS 

RIL 

SKP #00 RECORD ERROR-IF EF MON 1STe4 
SKP*00 RECORD ERROR@IF ID MON 1ST+¢9 
LSHAL*00 DELAY w/NOOPS 

LSHAU*00 

TUP*PR2545 EXIT 

RESERV*1 

0*0 ENTRY | 
ENTAU*CHANtS DELAY TO PROCCESS DATA REQS 
RJP*DELAY a 

RUP*STINK STORE STOPS IN ENT ADDRS 
ENTAU*PROKA@~1 IRJP OF HI PRIO INT 
ENTAL*PRBAD=1 IRJP OF LO PRIO INT 
ENTSR*10 7 

STRAU*ADR ENT ADR OF HIGHER PRIO MON 
STRAL*ADR ENT ADR OF LOWER PRIO MON 
ENTSR*00 


PAGE 


ADDRESS 


15313 
15314 
15315 
15316 
15317 


15320 


15321 


15322 
15323 
15324 
15325 
15326 
15327 


15330 


15331 
15332 
153553 
15334 
153355 
15336 
15357 


15340 
15341 
15542 
15343 
15344 
15345 
15546 
15347 


15350 
15351 


0098 
INSTRUCT 


5012 00 
016446 
016445 

5011 900 
216412 


216412 
5026 00 
12 6631 
5073 10 
&4 0000 
5073 00 
76 5340 | 
10 64867 


12 6470 
5030 00 
5050 0 
5050 00 
5046 00 
2045 00 
55 5154 

000000 


00 on00 
10 6540 
76 0302 
76 6336 
10 5361 
12 5353 
5073 10 
46 0000 


44 0000 
2073 00 


elé-P 


SEQNO 


005716 
005717 
005720 
005721 


005722 


005723 
005724 
005725 
005726 
005727 
005730 
005731 
005732 


005733 
005734 
005735 
005736 
005737 
005740 
005741 
005742 


(005743 


OO5744 
005745 
005746 
005747 
005750 
005751 
005752 


005753 
005754 


LABEL 


PRBAD 


PROKA 


RJPEI1L 
EIRT1L 


AF AULT 


CON 


STATEMENT 


TUP*SETPR EXIT 
IRJP*PRBADD FOR INT ENT 
0*0 ENTRY 


RUP*RCORDO RECORD ERROR 
ENTBKB*01 ADV COUNT 
RUP*HONINT IGNORE OTHER INT 


IJUP*PRBAD EXIT 
IRJP#*PROKAA FOR INT ENT 
0*0 ENTRY 


ENTBKB*01 ADV COUNT 
RJP*HONINT IGNORE OTHER INT 
IUP*PROKA EXIT 

IRJP*EIRH 

0*0 ENTRY 

ENTAU*EIRTI MAIN PROG P DISPLAY 
ENTSR*10 REF BANK 0 

ENTAL*02 DISPLAY CHAN 
STOP*4&Q ERR STOP 

IRJP*FAULTA 

0*«0 ENTRY 

ENTAL*AFAULT+41 DISPLAY FAULT 
ADDALK*7776 ADDR IN AL 
STRADR*LOK+1 AND ITS CONTENTS 
ENTAU*ADR IN AUe AND 

SXL 

SRSM*NONJPD 

EXF*NONJPD FAULT FLAG LOC 
O*TFAULT IN C REGISTER 
O*ITFAULT 

EXFSTP*NONJPD 

EXFOV*NONJPD 


PAGE 


ADDRESS 


15352 
15353 
15354 
15355 


—6-15556 


15357 
15360 
15361 
15362 
15363 
153564 
15565 
15566 


15367 
15370 
15371 
15372 
15373 
15374 
15375 
15376 


15377 
15400 
15401 
15402 
15403 
15404 
15405 


~15406 


15407 


15410 


0099 


INSTRUCT 


55 5340 
30 7771 
00 0000 
76 5555 


37 0001 


76 6353 
55 5354 
30 7770 
00 0000 
37 0001 
76 6353 
55 5362 
30 7720 


00 0000 
10 5367 
5073 10 
12 0002 
5056 40 
30 7712 
00 000 
12 $375 


71 7776 
74H Saol 
10 0000 
5036 00 
5020 4 
59013 4 

016603 

016603 


5017 04 
5027 94 


vIe-P 


2EQNO 


005755 
005756 
005757 


005760 


005761 
005762 


005763 — 
005764 | 


005765 
005766 


005767 


005770 
005771 


005772 
005775 
005774 
005775 
005776 
005777 
006000 
006001 


006002 
006005 
006004 
006005 
006006 
006007 
006010 
006011 


096012 
006013 


LABEL 


DISPOC 


CMRJP 


ASTR 
BSTR_ 
EE 


TERMAL 


STATEMENT 


SRSM*NONJPD 
STOP*«4&Q ERR STOP 


—0*0 ENTRY@DISPLAY ON C REG 


SXL 
SRSM*NONJPD 


EXF *NONUPD | 
O*FAULTI _ 
O*FAULTIO 
EXFSTP*NONJPD 
EXFOV*NONJPD 


SRSM*NONJPD 


IJP*DISPOC EXIT 
0*0 ENTRY 


STRICR*EE SAVE ICR 
ENTICR*03 STORE 
ENTAL*MNAREA RUPS 
STRADR*¥ASTR IN - 
ENTAL*MNAREA41 ET 
STRADR*BSTR ENTRANCE 
ENTBK*17 REGISTERS 
ENTAL*MNADR | 


ENTSR*10 BANK 0 
STRALB*MNAREA 


~BUP*LOKel1 


ENTBK*17— 

STRALB*MNAREA 

BUP*LOK=1 

ENTSR*0 CURRENT BANK. 
ENTICR*02 REACT ORG ICR 


I UP*CMRUP EXIT 
0*0 ENTRY“CL IDs ODe EF ACT 


PAGE 


ADDRESS 


15411 
15412 
15413 
15414 
15415 


15416 
(15417 
15420 
15421 


15422 
15423 
15424 
15425 


15426 
15427 
15430 
15431 
15432 
15433 
15434 
15435 


15436 
15437 
15440 
15441 
15442 
15443 
15444 
15445 


15446 
15447 


0100 


INSTRUCT 


5020 94 
5056 40 
00 0000 
5036 00 
5020 04 


5013 04 
016692 
016602 

5017 04 

5027 n4 

5020 04 

55 5413 

00 90000 


72 5445 
5072 03 
12 6557 
74 5437 
12 6560 
7TH Sase2 
36 0017 
12 6561 


5073 10 
45 6557 
73 =5437 
36 0017 
45 6557 
753 S442 
5073 900 
5072 2 


55 5425 
00 onno 











STeé-P 


SEQNO 


006014 
006015 
006016 
006017 


906020 


006021 
006022 
006023 
006024 
006025 
006026 
006027 
006030 


006031 
006032 
006033 
006034 
006035 
006036 
006037 
006040 


006041 
006042 
U96045 
006044 
006045 
GV06046 
006047 
006050 


006051 
006052 


LABEL 


TERM 


DD 


STCWAR 


AA 


STATEMENT 
STRICR*OD SAVE ICR 
STRB*BSAVE SAVE (B)I 
ENTICR*03 ACT B3 
ENTBK*17 SET B3#17 
ENTALK*1517 PRESTR 
STRADR*TERM F CODES 
ENTALK*1617 AND 
STRADR*TERM+} MAX NO 
ENTALK*1717 OF CHAN 
STRADR*TERM+2 IN RTN 
INSTP*17 CL ID 
OUTSTP#*17 ODe 
EXFSTP¥*17 AND EF 
ISK*LOK73 ON 
ISK*LOK=3 ALL 
ISK*LOK=3 CHAN 
BUP*TERM 
ENTICR*02 REACT ICR 
ENTB*BSAVE RESTORE (B)T 


IUP*TERMAL EXIT 
0*0 ENTRY TO SET ALL Cw 


STRICR*¥AA SAVE ICR 

ENTICR*O3 ACT 83 

ENTSK*373 

ENTAL*CKWD ENT CKWD ADDR 
ENTSR*10 

STRALB*04 STR IN ADDR 20-377 © 
BUP*LOK~1 

ENTSR*0 

ENTICR*02 REACT ORG ICR 


ITUP*STCWAR EXIT 


PAGE 


ADDRESS 


15450 
15451 
15452 
15453 
15454 


15455 
15456 
15457 
15460 
15461 
15462 
15463 
15464 


15465 


~=15466 


15467 
15470 
15471 
15472 
15473 
15474 


15475 
15476 
15477 
15500 
15501 
15502 
15503 
15504 


15505 
15506 


o01n1 


INSTRUCT 


72 Savi 
42 6444 
5072 03 
36 0017 
70 31517 


74 5462 
70 «1617 
74 5463 
70 1717 
74 «5464 
$015 17 
5016 17. 
5017 17 


57 5462 
57 5463 
57 S464 
73 5462 
5072 02 
S32 6444 
55 S4a7 
00 oOnnND 


72 $505 
5072 3 
36 0373 
12 6445 
5073 10 
45 0094 
73 «5592 
5073 10 


5072 ne 
55 5474 


9TE-P 


SEQNO 


LABEL 


006055 CLCWAR 


006054 
006055 
006056 
006057 


006060 
006061 
006062 
006063 
006064 
006065 
006066 
006067 


006070 
006071 


006072. 


006073 
006074 
006075 
006076 
006077 


006100 
006101 
006102 
006103 
006104 
006105 
006106 
006107 


006110 
006111 


CLCICR 


STALAC 


STAL 


cc 


STATEMENT 


0*0 ENTRY = CL BUF Cw AREA 
STRICR*CLCICR | 

STRB*BSAVE 
ENTICR*03 
ENTBK*0673 


ACT B83 


ENTSR#10 


CLB*04 
BUP*¥LOK~1 
ENTSR*0 


EI AND MON INT AREA 
DEACT SR 


ENTICR*XX 


ENTB*BSAVE 
IJP*CLCWAR EXIT 
0*0 ENTRY@SET IDe ODe EF ACT 


STRICR*CC SAVE ICR 
ENTICR*03 ACT B3 
ENTBK*17 SET B3#17 
ENTALK*0117 PRESTR 
STRADR*STAL F CODES 
ENTALK*0217 AND 
STRADR*STAL+1 MAX NO 
ENTALK*0317 OF CHAN 
STRADR*STALt2 IN RTN 
SIN*17 SET 10 

SOUT*17 OD 

SEXF*17 AND EF 
TISK*LOK~3 ON 
ISK*LOK=5 ALL 
ISK*LOK73S CHAN 
BUP*STAL | 
ENTICR*02 REACT ORG ICR 


IUP*STALAC = EXIT 


PAGE 


ADDRESS 


15507 
15510 
15511 
15512 
15513 


15514 
15515 
15516 
15517 


15520 


15521 
15522 
15523 


15524 
15525 
15526 
15527 
155350 
15531 
15532 
15533 


15534 
15535 
15536 
15537 
15540 
15541 
15542 
15543 


15544 
15545 


012 


INSTRUCT 


00 anno 
72 5520 
G2 6444 
9072 3 
36 0673 


5073 10 
41 0004 
73 =5515 
5073 00 
5072 0 
S32 6444 
55 5507 
00 0000 


72 «S544 
5072 93 
36 «60017 
70 «=O117 
74 5535. 
70 0217 
74 5536 
70 = O317 


74 5537 
5001 17 
5002 17 
5003 17 
57 5535 
57 5536 
57 5537 
73 5535 


5072 02 
55 $523 





LIE-¥ 


SEQNO 


096112 
006113 
006114 


006115 


006116 


006117 


006120 
006121 
006122 
006123 
006124 
006125 
006126 


006127 
006130 
0061351 
006132 


006133 


0061354 
006135 
006156 


006137 
006140 
006141 
006142 
006145 
006144 
006145 
006146 


006147 
006150 


LABEL 


RCORDI 


RCORDO 


RCORDF 


ALSAVE 


CHSET 


STATEMENT 


0 ERR RCD RTN ENTRY 
STRAL*ALSAVE 
ENTALB*CHAN 
SLSET®AUERDS _ 
STRAL#AUERDS 


ENTAL*ALSAVE RESTORE A 
IUP*RCORDI EXIT | 
0 ERR RCD RTN ENTRY 
STRAL*ALSAVE 
ENTALB*CHAN 
SLSET*ALERDS 
STRAL*ALERDS 
ENTAL*®ALSAVE RESTORE AL 
TUP*RCORDO EXIT 

0 ERR RCD RTN ENTRY 


STRAL *ALSAVE 

ENTALB*CHAN | 

SLSET*FAULTI SET BIT 
STRAL*FAULTI SAVE ERR 
ENTAL*ALSAVE RESTORE AL 


IJP*RCORDF EXIT 


0*0 TEMP STORE AL ERROR RECORD RTNS 


O ENTRY = CHAN AND B SET RTN 


ENTICR*02 ACT Be | 
ENTAL*IOSIZE ENT I70 PARMTR FR MEM 
CMAL*SXTEEN 16 I/0 CHAN? 

JPEQ*CHSETI YESe*JP 


CMAL*TWELVE NOT 16° 12 I/70 CHAN? 


JPEQ*CHSET2 YESe JP 


CMAL*EIGHT 
JPES*CHSETS 


NOT 12° 8 1/70 CHAN? 
YES JP 


PAGE 


ADDRESS 


15546 
15547 
15550 
15551 


15552 
15553. 


15554 
15555 
15556 
15557 
15560 
15561 
15562 


15563 
15564 
15565 
15566 


15567 


15570 
15571 
15572 


15573. 
15574 


15575 
15576 
15577 
15600 
15601 
15602 


15603 
15604 


0103 


INSTRUCT 


000000 


uy 
13 
51 


~—644 


12 
55 


5573 
6533 
6467 
6467 


5573 


5546 © 


000000 


ay 


13 
51 
4k 
12 


55 
44 


13 
51 


ay 


12 
55 


00 


5573 
6533 
6470 
6470 


5573 


9555 


000000. 


5573 
6533 
6602 
6602 
5573 
5564 


—0n00 


000000 


5072 


12 
02 
61 
02 
61 


02 
61 


N2 
6471 
6463 
9610 
6464 
5616 


6465 
5625 





8TE-P 


SEQNO 


006151 
006152 
006155 
006154 
006155 


006156 
006157 _— 
006160. 


006161 
006162 
006165 
006164 
006165 


006166 
006167 
006170 
006171 
006172 
006173 
006174 
006175 


006176 
006177 
006200 
006201 
006202 
006205 
006204 
006205 


006206 
006207 


LABEL 


CHSET1 


CHSET2 


CHSETS 


CHSET4 


PRESTR 


STATEMENT 


CMAL*FOQUR 
JPEQ*CHSETY 


NOT 8e & I/70 CHAN? 
YES JP 


STOP ERR STOP = WRONG PARMTR ENT 


STRADR*¥REICR# STR 8 


ENTSR*10 REF BANK 0 

STRAL*02 SET B2H17 IF 16 CHANe SEL 
ENTSR*0 | - oR io. ee 
-ENTAL*CHAB16_ 16 CHAN TBL LBL AND JP To. 
JP*PRESTR PRESTR LBL IN MAIN RTN © 
ENTALK*13 SET B2#13 

STRADR*REICREL STR B 

ENTSR¥*10 

STRAL*02 IF 12 CHANs 

ENTSR*0 

ENTAL*CHA21 SEL 12 CHAN TBL LBL 
JP*PRESTR JP TO STR IN MAIN RTN 
STRADR*REICRH1I STR B 

ENTSR*10 

STRAL*02 

ENTSR*0 _ 

ENTAL*CHAB8L6 SEL 16 CHAN TBL LBL AND 
JP*PRESTR JP TO STR IN MAIN RTN 
ENTALK*03 SET B2H3 

STRADR*REICR+1L STR B | 

ENTSR*¥10 se 

STRAL*02 IF & CHAN AND © 

ENTSR*0 

ENTAL*CHAGO SEL 4 CHAN TBL LBL 
STRADR*TBLIOI STR CHAN TBL IN 
STRADR*TBLIO2 MAIN RTN 

STRADR*TBLIOZ ~—po 


PAGE 


ADDRESS 


15605 
15606 
15607 
15610 
15611 


15612 
15613. 


15614 


15615 


15616 
15617 
15620 
15621 


15622 


15623 
15624 
15625 
15626 


15627 


15630 
15631 


15652 
156353 
15654 


15635 


156356 
15657 
15640 
15641 


15642 
15643 


0104 


INSTRUCT 


02 6466 
61 5633 
5056 40 
74 $770 
5073 10 


4&4 0002 


5073 00 


12 6460 
34 5641 
70 0013 
74 5770 


5073 10 © 


4&4 OnNe 


5073. 00. 
12 6461 
34 5641 
74 5770 
5073 10 
44 0002 
5073 00 
12 6460 


34 5641 
70 0003 
74 5770 


$073 10 


G4 OnN2 
5073 00 
12 6462 
74H 0191 


74 01461 
7H = OF14 


—~«6TE-P 


SEQNO 


006210 
006211 


0062ie 


006215 
006214 


006215 
006216 
006217 
006220 
006221 
006222 
006225 
006224 


006225 
006226 


006227. 


006230 
006231 
006252 
006255 
006234 


006235 _— 


006236 
006237 
006240 
006241 
006242 
006243 
006244 


006245 
006246 


LABEL 


~~ STATEMENT 


STRAOR*TBL1I0+1 DO 
STRADR*TBLIOG DO 
STRADR*CKTERG=4 DO 
STRADR*CKTERY — DO 


 STRADR*TBLIO9 00 
STRADR*CKACT4=3  — O00 


STRADR*CKACTY Do 
STRADR*I011A DO 
STRADR*CONTI DO 
STRADR*NEXT#1 Do 
STRADR*CONTI+3 DO 
STRADR*CONTO DO 
STRADR*CONTO43 DO 


STRADR*NEXTA+1 D0 


— STRAOR*CONTF DO 


STRADR*CONTF+3 00 
STRADR*NEXTB41 | DO 
STRADR*IO12A pO 
STRADR*CKADR DO 
STRADR*CKADRE3 DO 
STRADR*CKOUTO | po 


STRADR#IOL3A 


STRADR*CKADRA 
STRADR*¥CKADRAt3 
STRADR*CKOUU 
STRADR*IOLSA+) 
STRADR*I016D 
STRADR*¥IOL6F +3 
STRADR*IO17A 


- STRADR*STRINA+G 


LSHAL*00 


PAGE 


ADDRESS 


15644 
15645 
15646 


15647 
15650 


15651 
15652 
15653 
15654 
15655 
15656 
15657 
15660 


15661 
15662 
15663 


—=15664 


15665 
15666 
15667 


15679 
15671 


15672 
15673 
15674 
15675 
15676 
15677 
15700 


15701 
15702 


74 
74 
74 
74 
74 


74 
74 
74 
74 
74 
74 
74 


74 
74 


74 
74 
74 
74 
74 


74 


74 


74 


74 
74 
74 
74 
74 
74 
74 


74 


5046 


0195 


INSTRUCT 


0555 
0413 


(0424 


0430 
0521 


0532 
0535 
0621 
0660 
0667 


0665 


0730 
0733 


0737 
1090 
1003 
1007 
1165 
1240 
1243 
1247 


1416 
1456 
1461 
1465 
2160 
1792 
1742 
2241 


24n3 
90 


OcE-P 


SEQNO 


006247 
006250 
006251 
006252 
006255 


006254 
006255 
006256 
006257 
006260 
006261 
006262 
006263 


006264 
006265 
006266 
006267 
006270 
006271 
006272 
006273 


006274 
006275 
006276 
006277 
006300 
006301 
006302 
006303 


006304 
006305 


LABEL 


JMPRD 


TESTIT 


USEIT 


RUP*TESTIT 


STATEMENT 


STRADR*IO170 
STRADR*STRINA 
STRADR#STRINT#HL 
STRADR*I018C 
IUP*#CHSET 


0*0 ENT = FIND LO EVN NON"JUMPRD CHAN 
ENTALK*0 PRESTR CHAN 0. 
STRADR*TESTIT+1 

RJP*TESTIT CK CHAN 0 

ENTALK*02 PRESTR CHAN 2 
STRADR*TESTIT#+1 

CK CHAN 2 

ENTALK*04 PRESTR CHAN 4& 

STRADRFTESTIT+H1 

RJP*TESTIT CK CHAN 4 

STOP*40 JMPRD CHAN PARAMETER NOT ENTERED 
0*0 ENT = CK FOR NON*JMPRD CHAN 
ENTALK*XX CHAN TO AL 

CMAL*LOCHAN LO JMPRD CHAN? 

JPEQ*LOK+3 YESe CK NEXT ONE 

CMAL*HICHAN NO» HI JMPROD CHAN? 


JPNOT*USEIT NO» NOT HI OR LOe USE IT 
IJP*TESTIT ‘YESe CK NEXT ONE 
STRAL*NONJPD 
ENTAU*U1L2MSK 
SLSU*DISPOC+3 
STRAL*DISPOC+3 
STRAL*CON+2 
SLSU*DISPOC +6 


777700 
STR CHAN 
IN PROGS 


STRAL*DISPOC+#+6 
STRAL*CON+t5 


PAGE 


ADDRESS 


15703 
15704 
15705 
15706 
15707 


15710 


15711. 


15712 
15713 
15714 
15715 
15716 
15717 


15720 
15721 
15722 
15723 
15724 
15725 
15726 
15727 


15730 
15731 
15732 
15733 
15734 
15735 
15736 
15737 


15749 
15741 


0106 


INSTRUCT 


74 
74 
74 
74 
55 


00 
70 
74 
76 
70 
74 
76 
70 


74 
76 


2257 
2377 
2374 
2426 
5574 


0000 
0000 
5724 
5723 
onn2 
572% 
5723 
0n04 


9724 
5723 


S056 40 


00 
70 
02 
61 
02 


63 
55 
me 
10 
04 
44 
44 
O4 


44 


44 


0090 
0000 
6564 
9731 
6573 


5732 
5723 
6604 
6455 
5416 
5ui6 
5404 
5471 


Sufi 
5497 





IcE~-P 


SEQNO 


006306 
006307 
006310 
006311 


00631e 


006313 
006314 
006315 
006316 
006317 
006320 
006321 
006322 


006325 
006324 
006325 
006326 
006327 
0063350 
006331 
v06332 


006333 
006334 
006335 
006336 
006337 
006340 
006341 
006342 


G06343 
006344 


LABEL 


CLBFAR 


REICR 


RJPEF 
EF MON 


STATEMENT 


SLSU*DISPOC+7 
STRAL*DISPOC+7 
STRAL*CON+6 


~SLSU*DISPOCtI0 


STRAL*DOISP0C+4+10 


STRAL*CON+7 
STRAL*DISPOCt+2] 
STRAL*CON+t+1 

IJP* JMPRD EXIT 

0*0 ENTRY 

ENTICR*03 ACT 83 
ENTBK*057 B3#57 
ENTS2*10 ACT SR BANK QO 


CLB*220 CL EFe oUTe AND IN BCW 


BUP*LOK=1 ADDR 220-257 
ENTBK*057 

CLB*20 CL REST BCW AREA 
BUP*LOK=1 


ENTSR*O0  DEACT SR 
ENTICR*02 REACT 82 
IUP*CLBFAR EXIT 


0*0 ENTRY = RESET ICR 
ENTALK*®XX ENT ICR VALUE 
ENTSR*10 REF BANK 0 
STRAL*02 STR IN B2 
STRAL*01 STR IN Bl 
ENTSR*0 REF CURRENT BANK 
ENTICR*02 ASSURE B2 ACT 
IUP*#REICR EXIT 


IRJUP*EF MH 


0*0 EF MON INT ENTR 


PAGE 


ADDRESS 


15742 
15743 
15744 
15745 
15746 


15747 
15750 
15751 
15752 
15753 
15754 
15755 
15756 


15757 
15760 
15761 
15762 
15763 
15764 
15765 
15766 


15767 
15770 
15771 
15772 
15773 
15774 
15775 
15774 


15777 
16009 


01907 


INSTRUCT 


04 S5u22 
44 S5y22 
G4 5Suld 
04 5423, 


44 5423 


44 S4it 
4G 5415 
GG 54N3 
55 5710. 
00 0000 
5072 93 
36 0957 
5073 10 


41 0220 
73. 5757 
36 0057 
41 0020 
73 5762 
5073 0 
5072 92 
55 5753 


00 0090 
70) =ONnANDO 
5073 10 
4G Onne 
44 0001 
5073 900 
5072 2 
55 5767 


30 7721 
Nn0 onno 








COS"P 


SEQNO 


006345 
006346 
006347 
006350 
006351 


006352 
006355 
006354 
006355 


006356 


006357 
006360 
006361 


006362 
006363 
006364 
006365 
006366 
006367 
006370 
006371 


006372 
006373 
006374 
006375 
006376 
006377 
006400 
006401 


006402 
006405 


— LABEL 


RJPOUT 
AUTMON 


RUPIN 
INMON 


SRCHCM 


STATEMENT 


ENTAU*EF MON 


ENTSR¥*10 
ENTAL*02 
STOP*40 


IRJP*AUTMH 


DISPLAY P OF MAIN PROG 
REF BANK 0 
DISPLAY CHAN 


ERR STOP 


0*0 $$QUT MON INT ENTR 


ENTAU*AUTMON 
ENTSR¥*¥10— 
ENTAL*02 


STOP*40 


IRJP*INMOH 


DISPLAY P. oP nee PROG 
REF BANK 0 © 

DISPLAY CHAN 

ERR STOP 


0*0 IN MON INT ENTR 


ENTAU*INMON 


ENTSR*10 
ENTAL*02 
STOP*&0 
ENTSR¥*10 
ENTAL*00 
ENTSR*0 


DISPLAY P OF MAIN PROG 


REF BANK 0 
DISPLAY CHAN 
ERR STOP 

REF BANK 0 


REF THIS STACK 


ENTAU*LOK=2 


STRAU*FINDt+3 


CMAL *AF AULT 
JPNOT*F IND 
 ENTSR*10— 
-ENTAL*0O1 


ENTSR*0 


SAVE ADR BEING CKD 


ADDR 00 CHGD? 
YES 
REF STACK 0 
NO* CONTINUE 


REF THIS STACK 


ENTAU*LOK=2 


STRAU*FIND+3 
CMAL*AF AULT 


JPNOT*FIND 
ENTICR*03 


SAVE ADR BEING CKD 
ADOR 01 CHGD? 


YES 
NOs CONTINUE 


PAGE 


ADDRESS 


16001 


16002 


16003 
16004 
16005 


16006 


(16007 


160190 
16011 
16012 
16013 
16014 
16015 


16016 
16017 
16020 
16021 
16022 
16023 
16024 


16025 


16026 
16027 
16030 


16031 
16032 


16033 
16034 
16035 


16036 
16037 


01n8 
INSTRUCT 
10 6090 
5073 10 
12 o0ne 
5056 40 
30 7722 
00 0000 
10 6006 . 
5073 10 
12 0092 
59056 40 
30 7723 
00 0050 
10 6014 
5073 10 
12 0n02 
5056 40 
5073 10 
12 0000 
5073 00 
10 6022 
46 6121 
02 5374 
65 6116 
9073 #610 
12 O00! 
5073 10 
10 6031 
46 6121 
02 5374 
65 6116 


5072 3 








EcE-7 


SEQNO 


006404 
006405 
006406 
006407 


006410 


006411 
UU641e2 
006413 
006414 
006415 
006416 
006417 
006420 


006421 
V06422 
006423 
006424 
006425 
006426 
006427 
006430 


G064351 
006432 
006433 


006434 


006435 
006436 
006437 
O06440 


006441 
006442 


LABEL 


ENTAU*LOK=2 


STATEMENT 


ENTBK*077 
ENTSR*1i0 
ENTALB*0600 
ENTSR*0 REF THIS STACK 
ENTAU*LOK<2 | | 


REF STACK 0 


STRAU*FIND+3 SAVE ADR BEING CKD 
CMAL*CHAY ADDR 600-677 CHGD? 
JPNOT*FIND YES 

BUP*LOK=5 

ENTBK*077 

ENTSR¥*10 

ENTALB*0400 

ENTSR*0 


ENTAU*LOK=2 
STRAU*FIND*3 
CMAL*CHAY 
JPNOT*FIND 
BUP*LOK~7 
ENTBK*077 
ENTSR*10 


SAVE ADR BEING CKD 


-ENTALB*200 


ENTSR¥0 


STRAU*FINOt+3 
CMAL*CKWDF1 
JPEQ*LOK+t5 
CMAL *CKWD 
JPEQ*LOK43 
CMAL *CHAY 


JPNOT#*FIND 


BUP*LOK=15 


SAVE ADR BEING CKD 


PAGE 


ADDRESS 


16040 
16041 
16042 


16043 


16044 


16045 
16046 
16047 
16050 
16051 
16052 
16053 
16054 


16055 
16056 


— 16057 


16060 
16061 
16062 
16063 
16064 


16065 
16066 
16067 
16070 
16071 
16072 
16073 
16074 


16075 
16076 


0109 


INSTRUCT 


36 


5073 


13 


—§073 


10 


46 
02 
65 
73 
36 


5073 


13 


0077 
10 
0609 
10 © 
6042 


6121 
6527 
6116 
6043 
0077 

10 
0400 


5073 0 


10 
4&6 
02 
63 
73 
36 


5073 


13 


5073 


10 
G6 
02 
61 
02 
61 
02 


63 
73 


6053 
6121 
6527 
6116 
6052 
0077 

10 
02N00 


80 
6064 
6121 
6446 
6076 
6445 
6976 
6527 


6116 
6063 


VoE-P 


SEQNO 


006443 
006444 
006445 
006446 
006447 


006450 
006451 
006452 
006455 


— 006454 


GV06455 
006456 
006457 


006460 
006461 
00646e 
006463 
006464 
006465 


‘006466 


006467 


006470 
006471 
006472 
006473 
006474 
006475 
006476 
UV06477 


006500 
006501 


LABEL 


NOF IND 


FIND 


IRJPEI 


EISTLM 


~JRJPEF 


EFSILM 


IRJUPOT 
AUSILM 


STATEMENT 


ENTSK*073 
ENTSR*10 
ENTALB*04 
ENTSR*0 
ENTAU*LOK=2 


STRAU*FIND+5 SAVE ADR BEING CKD 


CMAL*CKWDF1 
JPEQ*LOKt5 
CMAL*CKWD 

JPEQ*LOKt+3 
CMAL*CHAY 

JPNOT*F IND 
BUP*LOK@"15 


ENTAU*IFAULT 
STOP*«40 
ENTAU* IFAULT 
STRAL*FAULTI . 
RJP*DISPOC 
ENTALB*XX 
STOP*«40 
IRJP*EISIL 


CONTENTS OF FIN) ADR 
FIND ADR 


0*0 
RJP*RCORDI- 
IJPEI*EISILM 
IRJP*EFSIL 


0*0 


RJP*RCORDO 
IJPEFI*EFSILM 
IRJUP*AUSIL 


0*0 
RJUP*RCORDF 


PAGE 


ADDRESS 


16077 
16100 
16101 
16102 
16103 


(16104 


16105 
16106 
16107 
16110 
16111 
16112 
16113 


16114 
16115 
16116 
16117 
16120 
16121 
16122 
16123 


16124 
16125 
16126 


16127 


16130 
16131 
16132 
16153 


16134 
16135 


0110 


INSTRUCT 


36 


5073 


135 


5073 


10 


46 
02 


61 
02 
61 
02 
63 
73 


10 


0073 
10 
0n04 
00 
6101 


6121 
6446 
6113 
6445 
6113 
6527 
6116 
6100 


6603 


59056 40 


10 
44 
76 
13 


6603 
6602 
5413 
0000 


5056 40 


30 


00 
76 


54 


30 
00 
76 
54 
30 


00 
76 


7704 


0000 
5546 
6124 
7715 
0000 
5555 
6130 
7716 


0000 
5564 


SCE-P 


SEQNO 


006502 
006503 
006504 
006505 
006506 


006507 
006510 
006511 
006512 
006513 
006514 
006515 
006516 


006517 
006520 
006521 
006522 
006523 
006524 
006525 
006526 


006527 
006536 
006531 
006532 
006533 
006534 
006535 
096536 


006537 
006540 


LASEL 


UPRAM 


MAKADR 


STATEMENT 
IJPEJ*AUSILM 
0*«0 ENT 
CL*TwLVv18 1218-1219 MODE 
CL*¥HIFACE HI JMPRD CHAN INTRFACE 
CL*LOFACE LO JMPRD CHAN INTRFACE 
CL*NTOSTD 
JPALP*LOK+2 
STRAL*TWLVi8 STR NEG VAL IF 1218 vVOnE 
LSHAL*9D 
JPALP*LOK+2 NTDOS OR STD TYPE BUFFERING 
STRAL*NTDSTD NEG IF STD 
LSHAL*9D POS IF NTDS 
SLCL*LOMSK CL ALL BUT IO SIZE 
STRAL*IOSIZE SAVE HIGHEST CHAN NO INDICATING 
REMARK NUMBER OF CHANS 
RSHA*18D MOVE JMPRD CHAN INFO 
JPALP*LOK+2 POS IF SLOW INTFACE ON HIJP CHAN 
STRAL*HIFACE NEG IF FAST INTFACE ON HIJP CHAN 
SLCL*LLSOMSK CL UPPER 3 BITS 
LSHAL*9D 
JPALP*LOK+2 
STRAL*LOFACE 
SLCL*LISMSK 
ENTAU*CHAY CL AU 
LSHA*9D 
STRAU*LOCHAN Lo JMPRD CHAN NO 
LSHAL#*9D 
STRAL*HICHAN HY JMPRD CHAN NO 
RUP*MAKADR CONSTRUCT REQ JUPRD@CHAN ADDRS 
IUP*UPRAM EXIT 
0*0 ENTRY 


PAGE 


ADDRESS 


16136 
16137 
16140 
16141 
16142 


16143 
16144 
16145 
16146 
16147 
16150 
16151 
16152 


16153 


16154 


16155 
16156 
16157 
16160 
16161 


16162 
16163 
16164 
16165 
16166 
16167 
16170 
16171 


16172 
16173 


O111 
INSTRUCT 


54 6134 
00 0n00 
40 6472 
40 6562 
40 6563 


40 6626 
65 6146 
G4 6472 
S046 Li 
65 6151 
44 6626 
5046 11 
52 6456 


44 6471 
5043 22 
65 6157 
44 6562 
52 6457 


5046 11 
65 6163 


44 6563 
52 6457 
10 6527 
5047 11 
46 6564 
5046 11 
G4 6573 
76 6173 


55 6137 
00 onno 








9ZE-P 


SEQNO 


006341 
006542 
006545 
006544 
006545 


006546 
006547 
006550 
006551 
006552 
006553 
006554 
006555 


006556 
006557 
006560 
006561 
006562 
006563 
006564 
006565 


006566 
006567 
006570 


006571 — 


006572 
V06573 
006574 
006575 


006576 
006577 


LABEL 


ADDRES 


LOGRUP 


HIGRUP 


— ENTBK*07 
-RJP*ADDRES 


STATEMENT 


ENTAL*LOCHAN 
ENTICR*02 
ENTBK*00 
RJP*ADDRES 
ENTAL*HICHAN 


Low JPRD CHANHKL 
SELECT 82 
3280 INITIALLY 
PROCC LOCHAN 

HIGH JPRD CHAN #KH 


B2H7 FOR HI CHAN 
— PROCC HICHAN 
IUP*MAKADR = EXIT | 
0*0 ENTRY 
SLCL*KHMSK 
JPALNZ*HIGRUP 
ENTALB*LOCHAN 
LSHAL*QO1 NO = 2K 


MASK # 000010¢* CHAN 10-17? 
YES*JUMP 


ADDALK*40 
STRALB*LOBCP 
ADDALK*20 
STRALB*LIBCP 
ADDALK*20 


+UQ0H4Q+2K 

OUTPUT BUF C 
+20H604+2K 

INPUT BUF C 
+20#100*2K 
STRALB*LEIP EI ENT/WD 
ADDALK*20 +208120*2K 
STRALB*LEFMIP EF MON I ENT 
ADDALK*20 +20#140t+2K 
STRALB*LOMIP OUTPUT MON I ENT 
ADDALK*20 #£+208160t2K | 
STRALB*LIMIP INPUT MON I ENT 
IJP*ADDRES EXIT | 
ENTALB*LOCHAN 
ADDALK*7767 K~10 
LSHAL*0O1 2(K~-10) 


ADDALK*240 
JP*LOGRUPt+2 


240 + 2K | 
ADD 290 FOR UPPER GROUP CHANS 


PAGE 


ADDRESS 


16174 
16175 
16176 
16177 
16200 


16201 
16202 
16203 
16204 
16205 
16206 
16207 
16210 


16211 
16212 
16213 
16214 
16215 
16216 
16217 


—©-16220 


16221 
16222 
16223 
16224 


16225 


16226 
16227 
16230 


16251 
16252 


0112 


INSTRUCT 


12 6564 
5072 02 


36 
76 
12 


36 
76 
55 
00 
52 
635 
13 


Onno 
6204 
6575 


0007 
6204 
6173 
000 
6556 
6226 
6564 


5046 1 


71 
45 
71 
45 
71 
45 
71 
45 


71 
45 
71 
45 
55 
13 
71 


5046 


71 
34 


0NG0 
6565 
0020 
6566 
0020 
6567 
0020 
6570 


0020 
6571 
0020 
6572 
6204 
6564 
7767 

1 


0240 
6212 


LOE~F 


SEQNO 


006600 
006601 
00660e 
006603 


006604 


006605 
006606 
006607 
006610 
006611 
006612 
006615 
006614 


006615 
006616 
006617 
006620 
006621 
006622 
006623 


006624 


006625 
006626 
006627 
006630 
006631 
006632 
0066355 
006634 


006635 


006636 


LABEL 


CHACHA 


STATEMENT 

O*0 

ENTAU*U1L2MSK SLSU MASK # 777700 
ENTAL*LOCHAN LOW JUMPERED CHAN TO PROG 
—SLSU*ETKL | ,  e 
STRAL*EIKL EXF KH 
SLSU*EIKL+43 

STRAL*EIKL+3 EXFOV KH 
SLSU*AUTS 

STRAL*AUTS QUT KH 
STRAL*AUTSS OUT KL 
STRAL*TOOUTS#3 OUT KL 
STRAL*TOOUT2 OUT KL 
STRAL*DERRC+3 OUT KL 
SLSU*TESTAK 

STRAL*TESTAK SKPOIN KH 
STRAL*SKINT#4 SKPOIN KL 
SLSU*VROUT2] 

STRAL*VROUT2 OUTOV KL 
STRAL*DERRC+10 OUTOV KL 
SLSU*TOINS+3 

STRAL*TOINS+#3 IN KL 
STRAL*TOINS2 IN KL 
STRAL*ACKAUT IN KL 
SLSU*SKINT 

STRAL*SKINT SKPIIN KL 
STRAL*VROUT2]+43 SKPIIN KL 
STRAL*QACK SKPIIN KL 
ENTAL*HICHAN HIGH JUMPERED CHAN TO PROG 
SLSU*EIKH 

STRAL*EIKH EXF KL 
STRAL*COMINA=3 EXF KH 


PAGE 


ANDRESS 


16233 
16234 
16235 
16236 
16237 


16240 
16241 
16242 
16243 
16244 


16245, 


16246 
16247 


16250 
16251 
16252 
16253 
16254 
16255 
16256 
16257 


16260 


16261 
16262 
16263 
16264 
16265 
16266 
16267 


16270 
16271 


0113 


INSTRUCT 


00 
10 
12 
04 
Gu 


04 
44 
04 
uy 
man 
44 
44 
44 


04 
44 
44 
04 
44 
uu 
04 
uu 


44 
uy 
04 
44Y 
44 
Ky 
12 
04 


a 
Gu 


0000 
6455 
6564 
2757 
2757 


2762 

2762 
2622 
2622 
2722 
3077 
3133 
4214 


2702 
2702 
3122 
3147 
3147 
4221 
3195 
3105 


3141 
2726 
3116 
3116 
3152 
5023 
6573 
2651 


2651 
G64 


8cE-P 


SEQNO 


006637 
006640 
006641 
006642 
006645 


006644 
006645 
006646 
006647 
006650 
006651 
006652 
006653 


006654 
006655 
006656 
006657 
006660 
006661 
006662 
006663 


006664 
006665 
006666 
006667 
006670 
006671 
006672 
006675 


006674 
006675 


LABEL 


STATEMENT 


SLSU*EITKHtS 
STRAL*EIKHt+3 EXFOV KL 
SLSU*AUTSI 

STRAL*AUTS1 OUT KL 
STRAL*AUTS2 OUT KH 


STRAL*TOOUTS OUT KH 
STRAL*TOOUT2+3 OUT KH 
STRAL*CDMINA OUT KH 
STRAL*DERRC OUT KH 

STRAL *MWB OUT KH 
SLSU*TESTAC 

STRAL*TESTAC SKPOIN KL 
STRAL*SKINT2+4 SKPOIN KH 


SLSU*VEROUT 

STRAL*CDMINC OUTOV KH 
STRAL*COMINF OUTOV KH 
STRAL*VEROUT OUTOV KH 
STRAL*DERRCt+7 OUTOV KH 
STRAL*MWC +3 OUTOV KH 
SLSU*TOINS 

STRAL*TOINS IN KH 


STRAL*TOINS2+43 IN KH 
STRAL*ACKOUT IN KH 
STRAL*CDMINB IN KH 
STRAL*COMINE IN KH 
STRAL*MWC IN KH. 
SLSU*SKINT2 

STRAL*SKINT2 SKPIIN KH 
STRAL*VEROUT+3 SKPIIN KH 


STRAL*WACKQ SKPIIN KH 
STRAL*CDMINF 43 SKPIIN KH 


PAGE 


ADDRESS 


16272 
16273 
16274 
16275 
16276 


16277 


16300 


16501 
16302 
16303 
16304 
16305 
163506 


163507 
16310 
16311 
16312 
16313 
16314 
163515 
16316 


16317 
16320 
16321 
16322 
16323 
16524 
16325 
16326 


16327 
16330 


0114 


INSTRUCT 


04 
Gy 
04 
Gq 
G& 


uy 
44 
mar 
44 
44 
04 
Gy 
44 


04 
44 
4h 
44 
a4 
44 
O4 
Gt 


44 
44 
44 
44 
Gy 
04 
44 
44 


a4 
44 


2654 
2654 
2613 
2613 
2731 


3074 
3136 
4644 
GO1l 
3766 
3010 
3010 
3161 


3110 
4653 
4670 
5110 
4220 
3774 
31N2 
31in2 


3144 
2617 
4650 
4655 
3771 
3155 
3155 
3113 


2715 
4673 





66E-P 


SEQNO 


006676 
006677 
006700 
006701 


006702. 


006703 
006704 
006705 
006706 
006707 
006710 
006711 
006712 


006713 
006714 
006715 
006716 
006717 
006720 
006721 
006722 


006723 


006724 
006725 
006726 
006727 


006730. 


006731 
0067352 


606733 
006734 


LABEL 


IRUPAT 
AURILM 


STINK 


SS 


HONINT 


STATEMENT 


IJP*CHACHA EXIT 


RESERV#01 

IRJP*AURIL 

0*0 ENTRY 

JP#IQ16A EXIT 

0*0 ENTRY 

STRICR*SS SAVE (ICR) 
STRB*BSAVE SAVE (B) 

ENTICR*03 USE B3 

ENTBK*0673 B3#673 
ENTAL*STOPAA ENT STOP*40 CODE 
ENTSR*10 REF BANK 0 

STRALB*04 STR STOP*41 IN ADR 04-677 
BUP*LOK-1 DECR B3 AND uP 
ENTICR*00 RESTORE (ICR) 
ENTSR*0 REF THIS STACK 


ENTB*BSAVE RESTORE (B) 
TUP*STINK EXIT 
0*0 ENTRY = HONOR ALL INT 


STRICR*END1 SAVE B 
STRB*BSAVE SAVE (B) 
ENTICR*03 | 
ENTBK*373 B3#373 
ENTAL*RIL 

ENTSR*10 


STRALB*04 STR IN ADDR 4-377 TO 
BUP*LOK@1 HONOR ALL INT 
ENTSR*0 

RIL 


ENTAL*CHANt11 1000 


LSHAL*O1 OLY TO LET ALL 


PAGE 


ADDRESS 


16331 
16332 
16333 


~—-16334 


16335 


16336 
16337 
16340 
16341 
16342 
16343 
16344 
16345 


16346 
16547 
16350 
16351 
16352 
16353 
16354 
16355 


16356 


16357 
16360 
16361 
163562 
163563 
16364 
16365 


16366 
16367 


0115 
INSTRUCT 
55 6233 
000000 
30 7717 
00 0000. 
34 «1724 
00 onn0 
72 6347 
G2 6444 
5072 03 
36 0673 
12 6614 
5073 10 
45 onn4 
73 6345 
5072 0 
5073 0 
32 6444 
55 6336 
00 onno 
72 6371 
42 6444 
5072 3- 
36 0373 
12 6613 
5073 10 
u5S onny 
73 6362 
5073 00 
5030 n0 
12 6544 
5046 n1 





O€t-7 


SEQNO 


006735 
0067356 
006737 
006740 
006741 


006742 


LABEL 


END1 


SRSMAL 


006743 — 


006744 
006745 
006746 
006747 
006750 
006751 


006752 
006753 
006754 
006755 
006756 
006757 
006760 
006761 


006762 
006765 
006764 
006765 
006766 
006767 
006770 
006771 


G06772 
006773 


CLPIN 


PIN 
STRMEM 


STATEMENT 


MON BE HONORED 
ENTICR*O REACT ORIG ICR 
ENTB*BSAVE RESTORE (B) 
IUP*HONINT EXIT 

0*0 ENTRY = SET RES 


JPALP#*LOKe1 


SRSM*17 UPPER ODD 
SRSM*16 UPPER EVEN . 

— SRSM*07 LOWER ODD 

— SRSM*06 LOWER EVEN 
IUP*SRSMAL EXIT 
0*0 ENTRY 
CL*PIN CL INPUT AREA 
CL*¥PINt1 
CL¥PINt2 
CL¥*¥PINt3 
CL*¥PINt4 
CL¥PINtS 
IJP*CLPIN EXIT 
RESERV*6 INPUT STR 
0*0 ENTRY 
STRICR*ENDA SAVE ICR 
STRB*BSAVE SAVE B 
ENTICR*03 USE B3 

ENT8K*677 B3H677 
ENTSR*¥10 REF STACK O | 
STRBB*0 STR 07677 IN 0-677 
BUP*LOQK=-1 
ENTSR*0 REF THIS STACK 
ENTAL*AFAULT RESTORE ADDR 9 
ENTSR¥*10 REF STACK 0 
STRAL*0 


PAGE 


ADDRESS 


16370 
16371 
16372 
16373 
16374 


16375 


16376 
16377 
16400 


16401 
16402 
16403 
16404 


16405 


16406, 


16407 
16410 
16411 
16412 
16420 
16421 


16422 
16423 


6: 164e4 
~16425_ 


16426 
16427 
16430 
16431 


16432 
16433 


0116 
INSTRUCT 
65 6347 
5072 0 
32 6444 
55 6353 
00 onn0 
5020 17 
5020 16 
5020 97 
5020 6 
55 6374 
00 0000 
4O 6412 
40 6413 
40 6414 
40 6415 
40 6416 
40 6417 
55 6402 

000000 
00 0900 
72 6435 
42 6444 
5072 03 
36 0677 
5073 10 
43 0000 
73 6426 
5073 90 
12 5374 
5073 10 
44 Onno 


TEE-P 


SEQNU 


006774 
006775 
006776 
006777 
007000 


007001 
007002 
007003 
007004 
007005 
007006 
007007 
007010 


007011 
007012 
007013 
007014 
007015 
007016 
v07017 
007020 


007021 
007022 
007023 
007024 
007025 
007026 
007027 
007030 


007031 
007032 


LABEL 


ENDA 


RUPE 


IRJPFM 


BSAVE 
CKwD 


CKWDA 


CKwOB 
UL2MSK 
LOMSK 
LISMSK 
CHA&16 


CHA21 
CHA4G 
SXTEEN 
TWELVE 
EIGHT 
FOUR 
AUVERDS 
ALERDS 


IOSIZE 
TWLV18 


STATEMENT 


ENTSR*0 REF THIS STACK 


ENTICR*XX RESTORE ICR 
ENTB*«BSAVE RESTORE B 
ITUP*STRMEM EXIT 
IRUP*«IRJPFL | 

Q*0 ENT 

RJP*RCORDO NOTE ERR 


[JPEI*IRJPFM EXIT 
0*0 SAVE CONTENTS OF B 


O*CKWwDd BUF CONTR WDS 
O*CKwDti 

O*xCKwDte2 

O*CKWDtTS 

4O*CKWDA BUF CONTR WD 
WO*CKWDATL 

GO*CKWDAt2) 

20*CKwDB 

777700 UPPER 12 BIT MASK 
000077 LOWER 6 BIT MASK 
077777 LO 15 BIT MASK 


O*CHA168 16 OR & CHAN TBL LBL 


—o*CHA12 12 CHAN TBL LBL 


O*CHAY 4 CHAN TBL LBL 

17 HI CHAN NO FOR 16 I/0 CHAN 
16 DO 12 DO 

07 DO 8 DO 

06 D0 4% D0 

0 ERR STR 

0 DO 


0 PARAMETER STR 
0 


NEGH1218 MONE = POS#1219 MODE 


PAGE 


ADDRESS 


16434 
16435 
164356 


16437 


16440 


16441 
16442 
16443 
16444 
16445 
16446 
16447 
16450 


—©:16451 


16452 
16453 
16454 
16455 
16456 
16457 
16460 


0117 


INSTRUCT 


5073 0 
5072 00 


32 
55 


30 


00 
76 
54 


00 


40 
40 
G0 
20 


16461 


16462 


16463 
16464 
16465 
16466 
16467 
16470 


16471 
1647? 


6444 
6420 
7714 


0nn0 
5555 
6441 
0090 
016445 
016446 — 
0164u7 
016450 


6451 
6452 
6453 
6454 
T7T77N0 
000077 
077777 
016473 


0165153 
016527 
000017 
000016 
000007 
000006 
0000N0D 


o00N0Nn0 


000009 
000090 


CEE-Py 


SEQNO 


007035 
007034 
007035 
007036 


007037 


007040 
007041 
007042 
007045 
007044 
007045 
007046 
007047 


007050 
007051 
007052 
007055 
007054 
007055 
007056 


00.7057 


007060 
007061 
007062 
007063 
007064 
007065 
007066 
007067 


007070 
007071 


LABEL 


CHA168 


CHA12 


CHAY 


00 
Ul 
02 
03 
04 


05 
06 


07 


10 


11 
le 
13 
14 


1S 
16 
17 
00 
O01 
02 
03 
04 


“05 


06 
07 


‘10 


le 
14 
16 
00 


02 
04 


8B OR 16 CHAN .TBL 


12 CHAN TBL 


PAGE 


ADDRESS 


16473 
16474 
16475 
16476 
16477 


16500 
16501 
16502 
16503 
16504 
16505 
16506 
16507 


16510 
16511 
16512 
16513 
16514 
16515 
16516 
16517 


16520 
16521 
16522 
16523 
16524 
16525 
16526 
16527 


16550 
16531 


0118 


INSTRUCT 


o000NNO 
000001 
o00nn2 
000093 
O000NY 


000005 
000006 
000097 
0000190 
oooo1l1 
000012 
000013 
000014 


000015 
000016 
000017 
000090 
o000n1 
000002 
000003 
000004 


o00nns 
0000N6 


000097 


000010 
000012 
ooonLYs 
000016 
000090 


000nne2 
ooonn4 


€&e-P 


SEQNO 


007072 
007073 
007074 
007075 
007076 


007077 
007100 
007101 
007102 
007103 
007104 
007105 
007106 


007107 
007110 
007111 
007112 
Y07113 
007114 
007115 
007116 


007117 
007120 
007121 
007122 
007123 
007124 
007125 
007126 


007127 
007130 


LABEL 


CHAN 


CMAUR 
KHMSK 


MNAREA 


MNADOR 
HIFACE 
LOFACE 
LOCHAN 
LEFP 
LOBCP 


LIBCP 
LEIP 


STATEMENT 


01 CHAN ERR TBL 


010000 

020000 

040000 

100000 

200000* 

400000* 

0 STR OF CONTR MEM ADDR 
000010 CK MSK FOR HI CHAN GP 


0 INT 
0 REG STR 
0*0 


0 NEGHHI JUMPRD CHAN FAST INT FACE 

0 NEGHLO JMPRD CHAN FAST INT FACE 

Q LO JMPRD CHAN NO 

REMARK LOW CHAN EF (L20-379H220~-237) 


O*x0 OBC (L4u0=-57» 
9*0 IBC (L60-77» 
0*0 EI (L100—117> 


PAGE 


ADDRESS 


16532 
16533 
16534 
16535 
16536 


16537 
16540 
16541 
16542 
16543 
16544 
16545 
16546 


16547 
16550 
16551 
16552 
16553 
16554 
16555 
16556 


16557 
16560 
16561 
16562 
16563 
16564 


16565 


16566 
16567 


0119 


INSTRUCT 


000096 
o00ngn1 
000002 
N00004 
ooon10 


0000290 
o00n040 
000190 
000200 
0004ND 
001000 
002000 
0040900 


010000 
020000 
040000 
100000 
200000 
4OONNO 
O0000NO 
000010 


O00NnND 
000nND 

0nNN 
000090 
000090 
000000 


0090 


Onno 
0000 


VEE-P 


SEQNO 


007131 
007132 
007135 
007134 
007135 


007136 
007137 
007140 
007141 
007142 
007143 
007144 
007145 


007146 
007147 
007150 
007151 
007152 
007153 
007154 
007155 


007156 
007157 
007160 
007161 
007162 
007165 
007164 
007165 


07166 
007167 


LABEL 


LEFMIP 
LOMIP 
LimIp 
HICHAN 
HEFP 


HOBCP 
HIBpcp 
HEIP 
HEFMIP 
HOMIP 
HIMIP 
FAULTI 
IFAULT 


NONJPD 
CDM198B 
CCMADR 
STOPA 
STOPB 
STOPC 
LI2MSK 
RIL 


STOPAA 
PLACE 
LOMSK 
CKwOZ 
PLAC2 
PLAC3 
PLACY 
PINS 


AUPRAM 
ALPRAM 


STATEMENT 
O*«0 EFMI(L120=-137> 
0*0 OMI (L140-157> 
O*«0 IMI (L160=177- 


0 HI JMPRD CHAN NO 
REMARK IH CHAN EF 


0*0 OBC 
O*0 IBC 
0*0 EI 
0*0 EFM] 
0*0 OMI 
0*0 IMI 
0*0 


0 FAULT BUF STR 


0 NONw"JPRD CHAN NO STR 

O*O RARMTR STORE@NEG IF 1218 MODE 
0 

STOP*4l 

STOP *«43 

STOP*45 

007777 

RIL 


STOP *40 CONST 

0*0 TEMP STORAGE 
000777 

O*CKwD FOR PRESTORING 
0*0 TEMP STORAGE 

Q*0 TEMP STORE 

0*0 TEMPORARY STR 
O*PIN+3 FOR COMPARE 


O*0 
0*0 


PAGE 


ADDRESS 


16570 
16571 
16572 
16573 


16574 
16575 
16576 
16577 
16600 
16601 
16602 
16603 


16604 
16605 
16606 
16607 
16610 
16611 
16612 
16613 


16614 
16615 
16616 
16617 
16620 
16621 
16622 
16623 


16624 
16625 


0120 


INSTRUCT 


00 onn0 
00 o0n0 
00 o0nn0 

000000 


00 0000 
00 0000 
00 0n00 
00 o00n0 
00 onn0 
00 9On00 
00 90000 

coonnn 


000090 
00 00nN0 
0000ND 
5056 %1 
5056 43 
5056 45 
007777 
5030 6900 


5056 40 
00 anno 
000777 
016445 
060 o00n0 
00 Oonn0 
00 900N0 
016415 


00 0000 
00 onno 


SEée-F 


SEQNO 


007170 
007171 
007172 
007173 
007174 


007175 
007176 
007177 
007200 
007201 


007202 
007203 


007204 
0072U5 
007206 
007207 
007210 
007211 
007212 
007213 


007214 
007215 
007216 
007217 


007220 


007221 
007222 
007223 


GO7224 
007225 


LABEL 


NTOSTO 
STDEST 


SPECIA 


INCRTC 


INCRTR 


STATEMENT 


0*0 POS IF NTDS/1219*eNEG IF STN 121A 
160400* CONST»* BITS Be 13° 14 AND 15 
RESERV*1 
SKP*00 
RUP*SETSPL PREP SPECIAL TEST 

REMARK 

REMARK 

REMARK 

REMARK*INCRIC@INTERCOMPUTER/RIYC TEST ASSUMES IOTA 
REMARK* HAS BEEN COMPLETED w/PROPER PARMTERS 


REMARK 
REMARK*SET I/C@=NORMAL SW TO I/C ON KH AND KL 


REMARK*REMOVE THE RTC DISC Sw 


REMARK 

REMARK 

REMARK 

STOP *4K0 

CL¥*¥PLACS CL ERROR DATA STORE 
ENTALK*INCRTC NOTIFY FLT 
STRADR*¥IFAULT ROUTINE 

ENTICR*02 SELECT B2 FOR ERROR FLAGS 
ENTBK*00 B2#O INITIALLY 

CL*ALERDS 

ENTALK*HICHAN KH TO 

STRADR*INCOMP INTERCOMPUTER PORTION 
STRADR*¥LOK+F1 

ENTAL*HICHAN HICHAN TO SP ISOL RTN 
ENTAU*UL2MSK MASK#777700 
—SLSU*RSMFAA 


STRAL*®RSMFAA OUT KS 


PAGE 


ADDRESS 


16626 
16627 
16650 
16651 
1663? 


16653 
16634 
16635 
16636 


16637 
16640 
16641 
16642 
16643 
16644 
16645 
16646 


16647 
16650 


0121 
INSTRUCT 
oo 0n00 

1604900 

000000 
5050 00 
76 7242 
5056 40 
4O 4243 
70 6634 
74 6693 
5072 2 
36 OnN0 
40 6470 
70 6573 
74 7321 
74 6645 
12 6573 
10 6455 
04 716% 
G4 7164 


9EE-P 


SEQNO 


007226 
007227 
007230 
007231 
007232 


007233 
007234 
y07235 
007236 
007237 
007240 
007241 
007242 


007243 
007244 
007245 
007246 
007247 
007250 
007251 
007252 


007255 
007254 
007255 
007256 
007257 
007260 
007261 
007262 


007263 
007264 


LABEL 


RTCA 


CMAL*CHAY 


STATEMENT 
STRAL*SPRIA OUT KH 
ENTSR*10 BANK Q 
CL¥*¥1i5 CLR RTCM INC ADR TO AVOID OVERFLO 
ENTSR*00 BANK 1 
RJP*STINK STORE STOPS IN INT ENTS 
RIL RIL 
ENTALK*3777 DELAY 1024 + US IN PROG 
ADDALK*7776 TO RECEIVE ANY FALSE SP INTS 
JPALNZ*LOK=1 
SI SIL 
ENTAU*BITDATFH1L AUKR777777 
ENTAL*RTCOVF=1 RTC OVERFLOW [UP 
ENTSR*10 
STRAU*L5 777777 TO RTC INC 
STRAL*13 RTCOVF ENT ADR 
ENTSR*00 
RIL RIL 
ENTALK*3777 DELAY 1024+US 
ADDALK*7776 
JPALNZ*LOK=1 
ENTALK*3000 INSURE ENOUGH TIME 
ADDALK* 7776 
JPALNZ*LOK=1 
RJP*RCORDO RECORD ERROR@RTC OVF NOT RCVD?*0 
ENTBKB*01 ADV COUNT 
SIL 3 : - 
ENTSR*10 
ENTAL*15 CONTENTS OF RTC INC ADR IN AL 
ENTAU*14 CONTENTS OF RTC CnoMP ADR IN AU 
ENTSR*00 

WAS RTC INC TO oOO00000? 


PAGE 


ADDRESS 


16651 
16652 
16653 
16654 
16655 


16656 
16657 
16660 
16661 
16662 
16663 
16664 
16665 


16666 
16667 
16670 
16671 
16672 
16673 
16674 
16675 


16676 
16677 
16700 
16701 
16702 
16703 
16704 
16705 


16706 
16707 


0122 
INSTRUCT 
GG 7572 
5073 10 
40 ONS 
5073 00 
76 6336 
5030 0 

70 3777 
71 7776 
63 6660 
5034 0 
10 4235 
12 7203 
5073 10 
46 ONn15 
44 0013 
5073 90 
5030 90 
70 «3777 
71 87776 
65 6673 
70 = =309N0 
71 7776 
63 6676 
10: 9595 
37 0001 
5034 00 
5073 10 
12 OO015 
19 On14 
5073 10 
02 65297 








LEE-P 


SEQNO 


007265 
007266 
007267 
007270 
007271 


007272 
007273 
007274 
007275 
007276 
007277 
007300 
007301 


007302 
007303 
007304 
007305 
007306 
007307 
007310 
007311 


007312 


0073135 
007314 
007315 
007316 
007317 
007320 
007321 


007322 
007323 


LABEL 


RTCb 


RECORD ERROR@=INC ADR NOTHOSe 
RTC NOT INC AT ALL? 


RECORD ERROR=INC ADR NOT INCe 


1 


2 


RTC MON (COMPARE) ADR CONTENTS 


RECORD ERROR@ADOR 14 WAS INCe 


1 NO RTC RE@ ENABLE INST IUP 


RECORD ERROR@=MON RCVD w/n RTCe 


STATEMENT 
JPEQG*LOKtS YES=-CONT 
RJP*RCORDO 
STRAL*PLACS8 SAVE VALUE 
ENTBKB*01 ADV COUNT — 
CMAL*BITDATtH1 
JPNOT*LOK+2 NO-CONT 
RJP*RCORDO 
ENTBKB*01 ADV COUNT 
STRAU*PLACY 
ENTAL*PLACY | 
CMAL*STOPAA RTC MON LOC INCR? 
JPEQ*LOK+t+2 NO-CONT 
RJP*RCORDO 
ENTBKB*OL ADV COUNT 
RJP*HONINT DROP ALL MONS 
RUP*STINK STR STOP*41 IN INT ENTS 
SIL SIL 
ENTAU*RTCNOT= 
ENTAL*STOPC STop*45 IN AL 
ENTSR¥*10 
STRAL#*14 RTC MON WDH505645 
ADDALK*7775 a 4 
STRAL*15 RTC INC WD#505643 
STRAU*12 RTC MON INT ENT ADR 
ENTSR*Q0 | 
ENTAU*ALERDS DISPLAY FLAGS 
RIL RIL 
RUP*SECSTH DELAY 1024 US 
SKP*40 INT NOT RCVD=CONT 
RJP*RCORDO 
ENT3K8*01 ADV COUNT 


3 


4 


PAGE 


ADDRESS 


16710 
16711 
16712 
16713 


16714 


16715 
16716 
16717 
16720 
16721 
16722 
16723 
16724 


16725 
16726 
16727 
16739 
16731 
16732 
16733 
16734 


16735, 


16736 
16737 
16740 
16741 
16742 
16743 
16744 


16745 
16746 


0123 


INSTRUCT 


61 6713 
76 5555 
YG 4243 
37 0001 
02 4235 


63 6717 
76 §555 
37 0001 
46 6622 
12 6622 
02 6614 
61 6725 
76 5555 


37 0001 
76 6353 
76 6336 
5034 940 
10 72nN5 
12 6611 
5073 10 
4&4 Ons 


71 7775 
44 On15 
4B 0012 
5073 90 
10 6470 
5030 90 
76 7175 
5050 40 


76 5555 
37 O001 


8EE~P 


SEQNO 


007324 
007325 
007326 
007327 
007330 


007331 
007332 
007335 
007334 
007335 
007336 
007337 
007340 


007341 
007342 
007343 
007344 
007345 
007346 
007347 
007350 


007351 
007352 
007355 
007354 
007355 
007356 
007357 
007360 


007361 
007362 


LABEL 


RTCC 


STATEMENT 


SIL SET INT LOCKOUT 


ENTAU*RTCOKe1 


RECORD ERROR@RTC MON NOT RCVDe 


RECORD ERROR@=RTC INC ADR WRNGe 


RTC MON OK IJP FOR INT ENT 


ENTAL*STOPC STOP*45 
ENTSR*10 | 
STRAL*¥14 RTC MON WDH505645 
ADDALK*7775 . 

STRAL*#15 RTC INC WDH505643 
STRAU*12 RTC OK IUP IN INT ENT 
ENTSR*00 
ENTAU*ALERDS DISPLAY ERROR FLAGS 
RTC ENABLE RTC REQUEST 
RIL = RIL 
ENTALK*3777 DELAY 1024 US 
ADDALK*7776 
JPALNZ*LOK=1 
ENTALK*3000 INSURE ENOUGH TIME 
ADDALK*7776 
JPALNZ*LOK=1 
RUP*RCORDO 
ENTBKB*01 ADV COUNT 
SIL SIL 
ENTSR*10 
ENTAL*15 RTC INC WD IN AL 
ENTAU*14 RTC MON WO IN AU 
STRAU*15 RTC INCHRTC MON 
ENTSR*00 
CMAL*STOPD WAS RTC INCR WD INCRD?H 
JPEQ*LOK+2 YES=CONT 
RUP*RCORDO 
ENTBKB*01 ADV COUNT 
STRAL#PLAC8 SAVE RTC INC wD 


PAGE 


ADDRESS 


16747 
16750 
16751 
16752 
16753 


16754 


16755 
16756 
16757 
16760 
16761 
16762 
16763 


16764 
16765 
16766 
16767 
16770 
16771 
16772 
16773 


16774 
16775 
16776 
16777 
17000 
17001 
17002 
17003 


17004 
17005 


0124 
INSTRUCT 
5034 10 
10 7207 
12 6611 
5073 10 
4&4 0014 
71 = =7775 
44 O015 
46 0012 
5073 90 
10 6470 
5014 0 
5030 900 
70 «43777 
71 467776 
63 6764 
70 3000 
71 7776 
63 6767 
76 5555 
37 0001 
5034 0 
5073 10 
12 ON15 
10 Oo14 
46 On15 
5073 0 
02 7241 
61 70n4 
76 5555 
37 anni 


44 4243 








6EE-P 


SEQNO 


007365 
007364 
007365 
007366 
007567 


007370 
007371 
007372 
0073753 
007374 
007375 
007376 
007377 


007400 
007401 
007402 
007403 
007404 
007405 
007406 
007407 


007410 
007411 
007412 
007413 
007414 
007415 
007416 
007417 


007420 
007421 


LABEL 


STATEMENT 
CMAL*STOPB RTC NOT INCR AT ALL? 
JPNOT*LOK+2 NO-CONT 
RJUP*RCORDO RECORD ERROR=RTC INC ADR NOT INC? 7 
ENTBKB*01 ADV COUNT ee 
STRAU*PLAC4Y = RTC MON (COMPARE) ADR CONTENTS — 
ENTAL*PLAC4 
CMAL*STOPC RTC MON LOC INCR? 
JPEQ*LOK+2 NO~CONT | 
RJUP*RCORDO RECORD ERROR@=ADDR 14 WAS INCe 8B 
ENTBKB*01 ADV COUNT 
ENTAU*RTCREM RTC REQ FF Ip 
ENTSR*10 
STRAU*12 TO RTC MON INT ENT 
ENTSR*00 
ENTAU*CHAY PREP AU FOR FLAG 
SKP*00 NOOP 
RIL RIL 
RUP*SECSTH DELAY 1024 US 
SIL SIL 
JPAUZ*LOK+2 NO INT RCVD? TRUE=CONT 
RJUP*RCORDO RECORD ERROR=RTC MON REQ FF SETe 9 
ENTBKB*01 ADV COUNT 
RJP*STINK STORE STOPS 
ENTAL*RTCwOC 600000 
ENTAY*RTCWDD 600007 
ENTSR*10 
STRAL*15 RTCH600000 
STRAU*LY MONH600007 
ENTSR*00 
ENTAL*RTCCBB 


ENTAU*RTCCCC 


PAGE 


ADDRESS 


17006 
17007 
17010 


17011 
17012 


17013 
17014 
17015 
17016 
17017 
17020 
17021 
17022 


17023 
17024 
17025 
17026 
17027 
17030 
17031 
17032 


17033 
17034 
17035 
17036 
17037 
17040 
17041 
17042 


17043 


17044 


0195 


INSTRUCT 


02 6610 
63 7011 
76 5555 
37 0001. 
46 6622 


12 6622 
02 6611 
61 7017 
76 5555 
37 0001 
i060 72ane 
5073 10 
46 O12 


5073 00 
10 6527 
5050 900 
5030 no 
76 «7175 
5034 0 
60 7033 
76 5555 


37 oon! 
76 6336 
12 7237 
10 7240 
5073 10 
4G ONS 
46 O14 
5073 10 


12 7217 
10 7235 


OVEe-?P 


SEQNO 


007422 
007423 
007424 
007425 
007426 


007427 


007430 
007431 
007432 
007433 
007434 
007435 
007436 


007437 
007440 
007441 
007442 
V07443 
007444 
007445 
007446 


007447 
007450 
007451 
007452 
007453 
007454 
007455 
007456 


007457 
007460 


LABEL 


RTCCB 


RTCCD 


STATEMENT 


ENTSR*10 
STRAL*RTCCC 
STRAU*12 
ENTSR*00 
RIL RIL 


RTC ENT ADDR 


RTC EN RTC. 
ENTALK*00 DELAY 
ADDALK*01 


CMAL *CHAN+12 
JPEQ*LOKt2 
JP*LOK=35 
RJP*RCORDO 
ENT8KB8*01 


RECORD ERROR=NO RTC10 
ADV COUNT 


ENTAL*RTCCDD 
ENTSR*10 
STRAL*RTCCC 
ENTSR*00 
ENTALK*00 
ENTAU*CHAN+t+20 
ENTSR*10 
STRAL*15 RTCHOOOODNN 
STRAU*14 
ENTSR*00 
RJP*RTCEN EN RTC /DELAY 

SKP*4Q £IF RTCM=ERR | 
RJUP*RCORDO RECORD ERROR=RTC 11 
ENTBKS8*01 ADV COUNT 7 
ENTAL*RTCCEE 

ENTSR*10 


MON#200000 


STRAL*RTCCC 
ENTALK*00 


PAGE 


ADDRESS 


17045 
17046 
17047 
17050 
17051 


17052 
17053 
17054 
17055 
17056 
17057 
17060 
17061 


17062 


17063 
17064 
17065 
17066 
17067 
17070 
17071 


17072 
17073 
17074 
17075 
17076 
17077 
17100 
17101 


17102 
17103 


0126 
INSTRUCT 
5073 10 
GQ“ T7773 
46 0012 
5073 900 
5030 10 
5014 00 
70 ©0000 
71 ooni 
02 6545 
61 7060 
34 7054 
76 5555 
37 OOn!1 
12 7229 
5073 10 
44 7773 
5073 90 
70 oo0n0 
10 6553 
5073 10 
Q& O015 
GB 0014 
5073 no 
76 7224 
5050 40. 
76 5555 
37 OOn1 
12 7221 
5073 10 
ay TI73 


70 ©0000 





TPE~-P 


SEQNO 


007461 
007462 
007463 
007464 
007465 


007466 
007467 
007470 
007471 
007472 
0074735 
007474 
007475 


007476 
007477 
007500 
007501 
007502 
007503 
007504 
007505 


007506 
007507 
007510 
007511 
007512 
007513 
007514 
007515 


007516 
007517 


LABEL 


RTCCE 


RTCCF 


STRAL¥*14 


STATEMENT 


LSHAU*01 
STRAL*15 RTC#HOO0000 
STRAU*L4 MONH4O0D0D 
ENTSR*00 | 


— RUP*RTCEN 


SKP*40 
RJP*RCORDO 
ENTBKB*01 
ENTAL*®RTICCFF 
ENTSR*10 
STRAL*RTCCC 
ENTSR*00 
ENTALK*00 


RECORD ERROR@“RTCe12 


ENTAU*CHAN+20 
ENTSR*10 

STRAL*14 MON#HO000000 
STRAU*15 RTC#H200000 
ENTSR*00 
RJP*RTCEN 
SKP*40 
RJP*RCORDO RECORD ERROR=RTCo13 
ENTBKB*01 

ENTAL#RTCCGG 

ENTSR*10 

STRAL*RTCCC 

ENTALK*00 

LSHAU*01 

MON#O00000 

STRAU*15 R™C#4YO0000 


ENTSR*00 


RUP*RTCEN 


PAGE 


ADDRESS 


17104 
17105 
17106 
17107 


17110. 


17111 
17112 
17113 
17114 
17115 
17116 
17117 
17120 


17121 
17122 
17123 
17124 
17125 
17126 
17127 
17130 


171351 
171352 
17153 
17154 
17135 
171356 
17137 
17140 


1714] 
17142 


0127 
INSTRUCT 
5045 o1 
44 0015 
46 0014 
5073 900 
76 7224 
5050 40 
76 5555 
37 0001 
12 7222 
5073 10 
44 7773 
5073 00 
70 onno 
10 6553 
5073 10 
44 0014 
46 0015 
5073 90. 
76 7224 
5050 40 
76 5555 
37 «oon! 
12 7223 
5073 10 
44 7773 
70 oo0n0 
5045 91 
44 0014 
46 0015 
5073 10 


76 7224 


CVE-P 


SEQNO 


007520 
0075e1 
007522 
007523 
007524 


007525 
007526 
007527 
007530 
007531 
007532 
007533 
007534 


007535 
007536 
007537 
007540 
007541 
007542 
007543 
007544 


007545 
007546 
007547 
007550 
007551 
007552 
007553 
007554 


007555 
007556 


LABEL 


RTCCS 


RSMFAA 


RTCwIC 


STATEMENT 


SKP*40 

RJP*RCORDO RECORD ERROR=RTC°14 
ENTBKB*01 

RJUP*HONINT DROP ANY MON INTS 
ENTAL*ALERDS ANY ERRORS? 

JPALZ*SPRIO NO-TEST SP INT PRIORITY 
RJP*STINK PREP To TEST RSMFLT INT 
ENTALK*3776 PREP RTC INC REG 
ENTAU*RSMFB@=1 RSMFLT INT IruP 

ENTSR*10 

STRAL#*15 

STRAUe11 TO RSMFLT INT ENT 

ENTSR*00 | 

RJP*TERMAL CLR ALL ACTIVES : 
ENTAU*PLACB DISPLAY RTC INC DATA FRROR 
ENTAL*ALERDS DISPLAY ERROR FLAGS 


SXL IGNORE EIRS 

OUT*KH ODA 

O*CKwOt+2 INTER@COMPUTER CHAN 

O*CKwOd TO CLR RESUME W/ NO IDA AVAILABLE 
RIL RIL 


wTFI WAIT TO RCVE RSMFLT INT 

STOP*4Q0 ERROR STOP IF NO RSMFLT INT 
ENTAU*PLAC8 

STOP*40 ERROR STOP 

RESERV*1 

REMARK*AL CONTAINS BITS SET TO FLAG ERRORS 
REMARK* 0 RTC OVERFLOW INT NOT RECEIVED 
REMARK*® 1 RTC 777777 NOT INCR To On0000 


REMARK* 2 RTC 777777 NOT INCR AT ALL 
REMARK* 3 RTC MON ADR WAS INCR 


PAGE 


ADDRESS 


17143 
17144 
17145 
17146 
17147 


17150 
17151 
17152 
17153 
17154 
17155 
17156 
17157 


17160 
17161 
17162 
17163 
17164 
17165 
17166 
17167 


17170 
17171 
17172 
17173 
17174 


0128 


INSTRUCT 


5050 40 
76 5555 
37 0001 
76 6353 
12 6470 


61 7255 
76 6336 
70 «23776 
10 7215 
5073 10 
44 0015 
46 O11 
5073 90 


76 5447 
10 = 42kh3 
12 6470 
5036 00 
5012 00 

016447 

016445 
5030 00 


5024 00 
9056 40 
10 42463 
5056 40 

000000 


Sve-P 


SEQNO 


007557 
007560 
007561 
007562 


007563 


007564 
007565 
007566 
007567 
007570U 
007571 
007572 
007573 


007574 
007575 
007576 
007577 
007600 
007601 
007602 


007605 


007604 
007605 
007606 
007607 
007610 
007611 
007612 
007613 


007614 
007615 


LABEL 


SECSTH 


RTCREM 
RTCOVF 


RTCNOT | 


RTCOK 
SPI12B 
SPT130 


RSMFB 
RTCCBB 


STATEMENT 
REMARK* & RTC MON RCVD W/O RTC REQ ENABLE 
REMARK* 5 RTC MON INT NOT RECEIVED 
REMARK* 6 RTC INC ADR NOT PROPERLY INCR 
REMARK*® 7 RTC INC ADR NOT INCR AT ALL 
REMARK* 8 RTC MON ADR WAS INCR © 


REMARK* 9 RTC REQ FF NOT CLRD BY RTC MON 
REMARK* 10 NO RTC/MON 600007 /RTC 600000 
REMARK* 11 RTC/RTC OQO0000/M0N 200000 | 
REMARK* 12 RTC / MON 400000 / RTC OnQn000 
REMARK* 13 RTC / MON 000000 / RTC 200000 
REMARK* 14 RTC / MON 000000 / RTC 400900 
REMARK*AU CONTAINS THE INCORRECT RTC INC VALUE 
0*0 ENTRY 


ENTALK*3777 
ADDALK*7776 
JPALNZ*#LOK=1 
TUP*SECSTH 
ENTAU*12 
TUP*RTCOVK 
JP*RTCA 


DELAY ABOUT 
1024 US 


EXIT 
FOR INT ENT ADR 
FOR RTC OVF INT ENT ADR 
RTC OVF OKe RETURN 


IUP*RTCMOT FOR RTC MON INT ENT ADR 
-UP*RTCB+1 «=RTC MON WHEN NO RTC INSTr RECORD 
-IJUP*RTCOM FOR RTC MON INT ENT ADR 

JP*#RTCC RTC MON OKe RETURN 


IUP*SPI12A FOR RTC MON ENT ADR 
JP*INCOMV SP PRIO CK OK 
IUP*SPI13C FOR RTC OVFLO ENT ADR 
JP*INCOMV=1 SP PRIO WRONG 
IUP*RSMFAB FOR RSMFLT INT ENT 
JP*RTCWICt+3 RSMFLT INT RCVD 
O*RTCCB 


PAGE 


ADDRESS 


17175 


17176 
17177 
17200 
17201 
17202 
17203 
17204 
17205 


17206 


17207 
17219 
17211 
17212 
17213 
17214 
17215 


17216 
17217 


IN 


00 


70 
71 
63 
55 
10 
95 
34 
55 
34 
55 
34 
55 
34 
55 
34 
55 


34 


0129 
STRUCT 


OnNO 


3777 
7776 
7177 
7175 
0012 
7764 
6701 
7763 


6745 
7762 
6772 
7761 
T3N4 
7760 
7303 
7787 


7173 
017061 


VrE-P 


SEQNO 


007616 


007617 
007620 
007621 
007622 


007623 
007624 
007625 
007626 
007627 
007630 
007631 


007632 — 
007633 


007634 
007635 
007636 
007637 
007640 
007641 
007642 


007643 
007644 
007645 
007646 
007647 
007650 
007651 
007652 


007653 
007654 


LABEL 


RTCCDD 
RTCCEE 
RTCCFF 
RTCCGG 
RTCEN 


RTCCCC 
RTCwWD1 
RTCWOC 
RTCwOD 
STOPD 

SETSPL 


SPRIO 


STATEMENT 


O*RTCCD 
O*RTCCE 
O*¥RTCCF 
O*RTCCG 
0*0 ENTRY 


RIL RIL 

RTC ENABLE RTC 
ENTALK*00 DELAY 
ADDALK*01 
CMAL*RTCwWOL 
JPEQ*LOK42 
JP*LOK=3 
IJUP*RTCEN EXIT 


IJUJPET*RTCCC FOR RTCM ENT ADR 
000500 

600000 

600007 

STOP*46 COMPARE 

0*0 ENTRY 

RJP*TERMAL TERM ALL ACTIVES 
RJP*HONINT IGNORE ANY MON INTS 
RUP*SRSMAL SET ALL RESUMES 


ENTSR*10 BANKO 

CL*¥15 CLEAR RTC INC ADR / I/C RTC TEST 
ENTSR*00 BANKI ) | 

SIL SIL 

ENTALK*00 CL AL 

ENTAU*CHAY CL AU 

IUP*SETSPL EXIT. 


RUP*HONINT 
RJP*STINK 


IGNORE MON INTS 
STORE STOPS 


PAGE 


ADDRESS 


17220 
17221 
17222 
17223 
17224 


17225 
17226 
17227 
17230 
17231 
17232 
17253 
17254 


17235 
17236 
17237 
17240 
17241 
17242 
17243 
17244 


17245 
17246 
17247 
17250 
17251 
17252 
17253 
17254 


17255 


(17256 


0130 


INSTRUCT 


017076 
017112 
017130 
017144 
0060 0000 


9030 0 


5014 90 


70 0000 
71 ONAL 
02 7236 
61 7234 
34 7230 
55 7224 


54 7773 
000590 
600090 
600097 

5056 45 

00 90n00 

76 5447 

76 6353 


76 6374 
5073 10 
4O O015 
59073 90 
5034 ao 
70 = «6onno 
10 6527 
55 72402 


76 6353 
76 6336 











SVE-P 


SEQNO 


007655 
007656 
007657 
007660 


LABEL 


007661 — 


007662 
0076635 
007664 
007665 
007666 
007667 
007670 
007671 


007672 


007673 
007674 
007675 
007676 
007677 
007700 
007701 


007702 
007703 
007704 
007705 
007706 
007707 
007710 
007711 


007712 
007713 


INCOMV 


STATEMENT 


SIL SET INT LOKoS 


ENTAL*BITDAT+1 PREP RTC MON INT 
ENTSR¥*10 AND RTC OVERFLOW INT 
STRAL*14% | | 
ADDALK*7776 

STRAL*15 

ENTSR*00 

ENTAU*SPI130—} 

ENTAL*SPI12B—1 

ENTSR*10 

STRAL*12 RTC MON 1ST 

STRAU*15 RTC OVF 2ND 

ENTSR*00 


RTC ENABLE RTC 


RJP*SECSTH ALLOW TIME FOR 

RJP*SECSTH BOTH INTS. TO BE REALIZED 

RIL RIL 

ENTALK*3000 #$=~WAIT TO RECEIVE 1ST INT 
ADDALK*7776 | 
JPALNZ*LOK=1 

STOP*4u0 ERROR STOP-2ND WAS 1ST 
RJP*HONINT  — oe ad he | 
CL¥PLACY CLR 1ST TIME THRU FLAG 3 
ENTAU*NTDSTO SET OUTPUT CWS ACCORDING TO 
ENTAL*¥INCOMO+2 BUFFER MODE 

ADDALK*01 +1 IF NTDS/1219 

JPAUP*LOKt+2 +2 IF $TD1218 

ADDALK*01 | 

STRAL*INCOMD#L 

ENTAL*HOBCP 

STRADR*INCOMA 


PAGE 


ADDRESS 


17257 
17260 
17261 
17262 
17263 


17264 
17265 
17266 
17267 
17270 
17271 
17272 
17273 


17274 
17275 
17276 
17277 
17300 
17301 
17302 
17303 


17304 
17305 
17306 
17307 
17310 
17311 
17312 
17313 


17314 
17315 


0131 
INSTRUCT 
5034 0 


12 4235 
5073 10 


G& On14 


71 0 =—-7776 


4G 0015 
5073 00 
10 723 
12 721 
5073 10. 
44 o012 
46 0013 
5073 90 


5014 0 
76 7175 
76 7175 
5030 940 
70 «830980 
71 7776 
63 7301 
2056 40 


76 6353 
40 6622 
10 6626 
12 74l2 
71 #0001 
64 7313 
71 =6O0N1 
4G 7411 


12 6574 


7H 73S 


SVE 


SEQNO 


007714 
007715 
007716 
007717 
007720 


007721 
007722 
007723 
007724 
007725 
007726 
007727 
007730 


007731 
007732 
007733 
007734 
007735 
007736 
007737 
007740 


007741 
007742 
007743 
007744 
007745 
007746 
007747 
007750 


007751 
007752 


LABEL 


INCOMP 


INCOMA | 


STATEMENT 


ENTICR*02 B2HO FOR EACH CHAN 
ENTBK*00 

CL*ALERDS CLR ERR FLG LOC 
ENTAL*HICHAN 


ENTAUSUL2MSK = 777700 


— SLSU*INCOMD 


STRAL*INCOMD OUT 
STRAL*INCOMH OUT 
SLSU*INCOMB 
STRAL*#INCOMB IN 
STRAL*INCOMC IN 
SLSU*INCOME 

STRAL* INCOME SKPNR 


STRAL*INCOMF +1 SKPNR 
STRAL*INCOMI SKPNR 
STRAL*¥INCOMJ+3 SKPNR 
SLSU*INCOMF 
STRAL*INCOMF SRSM 
STRAL*INCOMJ SRSM 


SLSU*INCOMG 
STRAL*INCOMG SKPOIN 

RUP*TERMAL TERM ALL ACTS 
RUP*CLPIN CLR INPUT AREA 
ENTAL*HOBCP STORE OUT BUF Cw 
STRADR*LOK+6 TO DETECT FALSE 0DR. 
ADDALK*01 | | 
STRADR¥*LOKtS 

ENTAL*CKWD+3 

ENTAU*CKWD 

ENTSR#*10 


STRAL*ADR TACW 


PAGE 


ADDRESS 


17316 
17317 
17320 
17321 
17322 


17323 
17324 


17325 


17326 
17327 
17330 
17331 
17332 


17333 
17334 
17335 
17336 
17337 
17340 
17341 
17342 


17343 
17344 
17345 
17346 
17347 
17350 
17351 
17352 


17353 
17354 


0132 


INSTRUCT 


5072 


36 
4&0 
12 
10 


04 
uy 
uy 
04 
Gy 
44 
04 
44 


44 
44 
uy 
04 


GG 


Gy 
0% 
GQ 


76 
76 
12 
74 
71 
74 
12 
10 


5073 


Quy 


N2 
on00 
6470 
6573 
6455 


7410 
7410 
T7464 
7357 
7357 
7405 
7420 
7420 


7425 
7503 
7512 
7424 
7424 
7507 
7431 
7431 


5447 
6402 
6574 
7354 
00n1 
7355 
6450 
6445 


10 
0000 





LvE-P 


SEQNO 


007752 
007754 
007755 
007756 
007757 


007760 
007761 
007762 
007763 
U07764 
007765 
007766 
007767 


007770 
007771 
007772 
007773 
OO7774 
007775 
007776 
007777 


010000 — 


010001 
010002 
010003 
010004 
010005 
010006 
010007 


010010 
010011 


LABEL 


INCOMB 


INCOMC 


INCOMD 


STATEMENT 


STRAU*ADREL CACW 


ENTSR*00 

IN*KH SET TO RECEIVE ODA/IOR 

O*PIN+2 ) 

O*PIN 

ENTAU*CHAN WAIT 

RJP*DELAY 

ENTAL*PIN DATA INPUTTED? 

JPALZ*LOK+2 NO=CONT* YES“ERROR 

RJP*RCORDO RECORD ERROR= FALSE ODR SEEN? 0 
ENTBKB*01 ADV COUNT 


RJP*CLPIN CLR INPUT AREA 


RJP*STINK STORE STOPS 
ENTAU*FLRSMF =} IRJP To ENT 
ENTALK*3777 

ENTSR*10 

STRAU*11 RSMFLT INT ENT 
STRAL*15 RTC # 3777 

ENTSR*00 

ENTAU*ALERDS DISPLAY ERROR FLAGS 
ENTAL*AUVERDS 

STRAL*FAULTI 

RJUP*xDISPOC 

RIL 

IN*KH INPUT TO RCVE DATA/IDORS 
O*PINt) POSS 3wD 

O*PIN | | 
OUT *KH OUTPUT I/C TO GIVE ODR 
O*CKwDtl1 2wDS /NTOS OR STD/ 
O*CKWD 

ENTALK*7777 COMPLETE BUFFER 


PAGE 


ADDRESS 


17355 
17356 
17357 
17360 
17361 


17362 
17363 
17364 
17365 
17366 
17367 
17370 
17371 


17372 
17373 
17374 
17375 
17376 
17377 
17400 
17401 


174020 


17403 
17404 
17405 
17406 
17407 
17410 
17411 


17412 
17413 


0133 
INSTRUCT 


46 O001 
5073 00 
5011 no 
016414 
016412 


10 6533 
76 0302 
12 6412 
61 7367 
76 5555 
37 o0on1 


76 64n2 


76 6336 


10 7542 
70 43777 
5073 10 


46 ONn11 


G& 0015 
29073 10 
10 6470 
12 6467 


44 6602 
76 Sars 
59030 90 
5011 90 
016414 
016412 
5012 90 
016446 


016445 
70 7777 





She-F 


SEQNO 


010012 
010013 
010014 
010015 
010016 


010017 
010020 
010021 
G10022 
010025 
010024 
010025 
010026 


010027 
010030 
010031 
010032 
010035 
0100354 
010035 
010056 


010037 
010040 
010041 
010042 
010043 
010044 
010045 
010046 


010047 
010050 


LABEL 


INCOME 


INCOME 


INCOMG 


STATEMENT 


ADDALK*7776 
JPALNZ*LOK=1 
SIL SET INT LeQe 


POSSIBLE FALSE RSMFLT INT 


ENTBKB*01 ADV COUNT 
SKPNR#*KH WAS RESUME RESET? 
SKP*40 YES=CONTe NO-ERROR 


RJUP*RCORDO RECORD ERROR@RESUME NOT SET+2 
ENTBKB*01 ADV COUNT 
SRSM*KH TRY PROG RSM SET 


SKPNR*KH RESUME PROG SET? 

SKP*40 YES=CONT»NO=-ERROR 

RJP*RCORDO RECORD ERROR@=SRSM FAILED ALSOQ*3 

ENTBKB*01 ADV COUNT 

SKPOIN*KH OUTPUT TERMINATED? 

RJP*RCORDO RECORD ERROR=NOT ENOUGH ODR/IDReY 

ENTBKB*01 ADV COUNT 

ENTAL*PIN+2 WAS A 3RD wD ACCEPTED? 

JPALZ#*LOK+2 NO= CONT» YES=ERROR 

RJP#*RCORDO RECORD ERROR=T00 MANY ODRS ACCEPT?5 

ENTBKB*01 ADV COUNT 

ENTAL*PINt1 2ND wD RCVD? 

JPALNZ*LOKt2] YES@-CONT»NO-ERR 

RJP*RCORDO RECORD ERROR=2ND OBE NOTe*6 
ENTBKB*01 #£ADV COUNT 

ENTAL*PIN 1ST wD RCVD? 

JPALNZ*LOKt+2 YES-CONTs* NO=ERR 

RJP*RCORDO RECORD ERROR~1ST oDR Not 7 

ENTBKB*01 ADV COUNT 

RUP*TERMAL CLR ALL ACTS 

RJP*STINK STORE STOPS 


ENTAU*RSMFKO=1 OK IRJP TO ENT 


PAGE 


ADDRESS 


17414 
17415 
17416 
17417 
17420 


17421 


17422 — 


17423 
17424 
17425 
17426 
17427 
17430 


17431 
17432 
17433 
17434 
17435 
17436 
174357 
17440 


17441 
17442 
17443 
17444 
17445 
17446 
17447 
17450 


17451 
17452 


0134 


INSTRUCT 


71 7776 
63 7ulys 
5034 900 
37 ooo! 
5057 90 


5050 40 
76 5555 
37 0001 
5020 00 
5057 10. 
5050 40 
76 5855 
37 0001 


5022 00. 
76 5555 
37 ono! 
12 6414 
61 7437 
76 5555 
37 0001 
12 6413 


63 7443 


76 5555 


37 oool 
12 6412 
63 7u47 
76 5555 
37 onnt 
76 5447 


76 6336 
10 7546 








6FE-7P 


SEQNO 


010051 
01005e 
010053 
010054 
010055 


010056 
010057 
010060 
010061 
010062 
010063 
010064 
010065 


010066 
010067 
010070 
010071 
010072 
010073 
010074 
010075 


010076 
010077 
010100 
010102 
010102 
010103 
010104 
010105 


010106 
010107 


LABEL 


INCOMH 


INCOMI 


INCOMJ 


STATEMENT 


ENTALK*3777 


ENTSR*10 
STRAU#11 
STRAL#*15 


ENTSR*00. 
ENTAU*ALERDS 


RSMFLT ENT ADR 


SET RTC 


ENTAL#*AUERDS 
STRAL*FAULTI 


RJP*DISPOC 
SEND ODA /NO IDA AVAILABLE 


OUT *KH 
O*CKwOrl 
O*CKwD 


RIL RIL 


ENTALK*7777 
ADDALK*7776 


DELAY TO RECVE RSMFLT INT 


JPALNZ*LOK=1 | 


ENTALK*7777 
ADDALK*7776 


JPALNZ*LOK=1 


ADDALK*01 
JPALP*LOK=1 _ 


SIL SIL 
RJP*RCORDO 
ENTBKB*01 


SKPNR*KH 


RJP*RCORDO 
ENTS8KB*01 
RJP*TERMAL 


SRSM*KH 


| ENTAU*CHANt19 
RJUP*DELAY 


RECORD ERROR=RSMFLT NOT RCVD-8 
ADV COUNT | 

RESUME STILL SET? YES<OK 

RECORD ERROR=SKPNR/NSKP 09 

ADV COUNT 


PROG SET OF RSM 


DISPLAY FLAGS 


ALLOW TIME To CLR ACK 
DELAY AND GEN FFS : 


PAGE 


ADDRESS 


17453 
17454 
17455 
17456 
17457 


17460 
17461 
17462 
17463 
17464 
17465 
17466 
17467 


17470 


17471 
17472 
17473 
17474 
17475 
17476 
17477 


17500. 


17501 
17502 
17503 
17504 
17505 
17506 
17507 


17510 
17511 


0135 
INSTRUCT 
70 3777 
5073 10 
46 OO11 
44 O05 
5073 00 
10 6470 
12 6467 
uG 66N2 
76 Sait3 
5012 900 

016446 

016445 
5030 n0 
70 7777 
71 7776 
63 7471 
70 7777 
7i 7776 
63 74u7K 
71 onoi 
65 7476 
5034 00. 
76 5555 
37 oant 
5057 900 
76 5555 
37 oon! 
76 $447 
5020 00 
10 6543 
76 03N2 


OSE-P 


SE QNO 


610110 
010111 
010112 
010113 
010114 


010115 
010116 
010117 
010126 
O10l1el 
010122 
010125 
010124 


010125 
010126 
010127 
010130 
010131 
010132 
010133 
010134 


010135 
010136 
010137 
010140 
O10141 
010142 
010143 
010144 


010145 
010146 


LAGEL 


INCOMT 


STATEMENT 
SKPNR*KH WAS IT SET? 
SKP*40 YES=-O0KeNOQ—ERR 
RJP*RCORDO RECORD ERROR=SRSM FAIL+10 
ENTAL*PLAC4 1ST TIME THRU? 
JPALNZ*INCOMT NO-TEST FLAGS 
ENTALK*7777 YES-SET 2ND TIME FLG 
STRAL*PLAC4 
ENTALK*LOCHAN LOCHAN 2ND TIME 
STRADR*INCOMP 
ENTAL*ALERDS SAVE KH FLAGS 
STRAL*AUERDS 
ENTAL*LOBCP 
STRADR*INCOMA 
JIP*INCOMP=3 RECYCLE w/KL 
ENTAL*ALERDS FLAGS OF KL 
ENTAU*AUERDS FLAGS FROM KH 
JPALNZ*LOK+2 ANY ERRORS? 
JPAUZ*LOK+2 NO - TEST PRIORITY 
STOP*4&O ERROR STOP 


RJP*SPRI TEST RSMFLT/RTC PRIORITY 
REMARK*ALHKL FLAGS* AURKH FLAGS 


REMARK* 0 FLASE ODR SEEN 

REMARK* 1 FALSE RSMFLT INT 

REMARK* 2 RESUME NOT RESET ON COMPLETED SUFFER 
REMARK* 3 SRSM FAILED ALSO | 
REMARK* 4 OUTPUT NOT TERMINATED 

REMARK* 5 TOO MANY ODRS SENT 

REMARK* 6 2ND WO NOT RCVD 

REMARK* 7 1ST WD NOT RCVD 

REMARK* 8 RSMFLT INT NOT RECEIVED 

REMARK* 9 SKPNR DID NOT SKIP w/NR 


PAGE 


ADDRESS 


17512 
17513 
17514 
17515 
17516 


17517 
17520 
17521 
17522 
17523 
17524 
17525 
17526 


17527 
17530 
17531 
17532 
17533 
17534 
17535 


0136 


INSTRUCT 


9057 
5050 


76 
12 
63 


70 
a ed 
70 
74 
12 
4G 
le 
74 


34 
le 
10 
635 
60 


5056 


nO 
40 
5555 
6622 
7530 


7777 
6622 
6564 
7321 
6470 
6467 
6565 
7345 


7316 
6470 
6467 
7534 
7535 

G0 


76 7550 











TS€-7 


SEQNO 


010147 
010150 
010151 
010152 


010155. 


010154 
010155 
010156 
010157 
610160 
010161 
010162 
010165 


010164 
010165 
010166 
010167 
010170 
010171 
010172 
010175 


010174 
010175 
010176 
010177 


.010200 


010201 
010202 
V10203 


010204 
010205 


LABEL 


FLRSMF 


RSMFKO 
SPRI 


SPRIA 


STATEMENT 


REMARK* 10 SRSM FAILED 


RJP*SETSPL PREP RECYCLE OR STOP 
STOP*04 SET STOP KEY 2 TO END TEST 
JP*INCRTC RECYCLE 

RESERV*01 

IUP*FLRMSF FOR RSMFLT ENT ADR 
RJP*RCORDO RECORD ERROR@RSMFLTo1 
RUP*HONINT IGNORE LATER INT 
JP*INCOME@1 EXIT 

TUP*RSMF OK 

JP*INCOMI~1 OK ENTRY/EXIT 

0*0 ENTRY 


RUP*HONINT IGNORE ALL INTS 


RJP*STINK STORE STOPS 
ENTALK*3777 

LSHA*22 3777 TO AU 
ENTALK*3776 

ENTSR¥*10 

STRAL#*15 RTC To 3776 
STRAU*14 

ENTSR*00 MON TO 3777 
ENTAU*RSMFA=1 RSMFLT ENT IRUP 
ENTAL*RTCMA*1 £RTCM ENT IRJP 
ENTSR*10 

STRAUSe11I RSMFLT HI PRI 
STRAL*12 RTCM LO PRI 
ENTSR*00 

SIL SET INT LeOe 

RUP*TERMAL CLR ALL ACTS 

OUT *KH PROVIDE RSMFLT INT . 


O*CKwOtl 


PAGE 


ADDRESS 


17536 
175357 
17540 
17541 


17542 
17543 
17544 
17545 
17546 
17547 
17550 
17551 


17552 
17553 
17554 
17555 
17556 
17557 
17560 
17561 


17562 


17563 
17564 
17565 
17566 
17567 
17570 
17571 


17572 
17573 


0137 


INSTRUCT 


76 7242 
5056 04 
354 6634 

000090 


55 7754 
76 55585 
76 6353 
S34 7417 
55 7753 
34 7592 
oo o000 
76 6353 


76 6336 
70 3777 
5047 22 
70 3776 
5073 10 
GG 0015 
46 OO014 
59073 00 


10 7611 
12 7614 
5073 10 
46 OO11 
G4 0012 
5073 0 
5034 od 
76 S447 


$012 00 
016446 


cSE~P 


SEQNO 


010206 
010207 
610210 
010211 
010212 


010213 
010214 
010215 
010216 
010217 
010220 
010221 
010222 


010225 
010224 
010225 
010226 
010227 
010230 
010231 
010232 


010233 
010234 
010235 


010236 


010237 
010240 
010241 
010242 


010243 
010244 


LABEL 


CLLR 


RSMFA 


RTCMA 
BOOTS 


MNIOL 


STATEMENT 


O*CKwD | 
ENTALK*7777 DELAY 
ADDALK*7776 | 
JPALNZ*LOK=1 
ADDALK*01 


JPALP*LOK=1 


 ADDALK*7776 


JPALNZ*LOK=1 

RIL 

ENTAU*CHAN FLG AU 
ENTAL*CHAG CLR AL 


STOP*40 ERROR STOP 

RESERV*01 

TUP*RSMFBA RSMFLT ENT IJP 
RUP*HONINT IGNORE RTCM 
IJP*SPRI OK-EXIT 

IJUP*RTCMB 

RJP*HONINT IGNORE RSMFLT INT 
JP*CLLRt2 TO STOP 


IUP*B00TS+1 REF 
0*0500 BTSTRP 


RESERV*1 

REMARK 

REMARK*MANUAL I70 TEST/AID 

REMARK | | 
REMARK*SET AL00=03 TO CHANNEL START 
REMARK 
ENTAU*UL2MSK 
SLSU*MNIA 
STRAL*MNI1A OUT LOC 
SLSU*MNLAtS 


PAGE 


ADDRESS 


17574 
17575 
17576 
17577 
17600 


17601 


17602 


17603 
17604 
17605 
17606 
17607 
17610 


17611 
17612 
17613 
17614 
17615 
17616 
17617 
17620 


17621 


17622 
17623 


17624 
17625 


0138 


INSTRUCT 


016445 
70 #7777 
71 = =7776 
63 7576 
71 #0001 


65 7600 
71 7776 
63 7602 
5030 0 
10 6533 
12 6527 
5056 40 

000000 


55 7772 
76 6353. 
55 7550 
55 7755 
76 6353 
34 7607 
55 7620 
00 0500 


000000 


10 6455 
0G 7634 


44 7634 
04 7637 











ESt-F 


SEQNO 


610245 
010246 
010247 
010250 
010251 


010252 
010253 
010254 
010255 
010256 
010257 
010260 
010261 


010262 
010265 
010264 
010265 
010266 
010267 


LABEL 


MNIA 


MN1b 


STATEMENT 
STRAL*MNLA+3 IN LOC 
SLSU*MN1B 
STRAL*MN1IB oUTOV LOC 
RJP*HONINT STORE RILS ALLOW EIS. 
CL*PIN CL 2 IN wDS 
CL*¥PIN+1 
OUT*XX OUT FN*QUTPUT/EF 
O*BITDATt3 TACWw 
O*BITDAT CACW 
IN*XX IN FN 
O*PING3 TACW 
O*PIN CACWw 
QOUTOV*XX OUTOV FNeQDA/EFA 
STOP*04 SET STOP KEY 2 TO STOP 


REMARK*CwWw AND FN MAY BE CHANGED 8Y INSPECT/CHANGE 
JP*MNIAM2 RECYCLE 

REMARK 

RESERV*01 

ENDSEG 


END OF PROGRAM 


PAGE 


ADDRESS 


17626 
17627 
17630 
17631 
17632 


176353 
17634 
176355 
17636 
176357 
17640 
17641 
17642 


‘17643 


176448 


17645 


0139 


INSTRUCT 


44 7637 
04 7642 
44 7642 
76 6353 
40 6412 


40 6413 
39012 90 
014237 
01492934 
5011 90 
016415 
016412 
5026 940 


5056 04 
34 7632 
000000 


Se-h 


ADDRESS 


12054 


15505 


12617 
12726 
13003 
12675 
16204 
00000 


15374 
16470 


14534 
14241 
16625 
15573 
15437 
14343 
16467 


16624 


LABEL 


AOK 

AA 
ACKOUT 
ACKAUT 


ACTLOC 


ACTLOK 
ADDRES 
ADR 


AF AULT 
ALERDS 


ALERQ 
ALL7S 
ALPRAM 
ALSAVE 
ASTR 
ATIME 
AUERDS 


AUPRAM 


REFERENCES 


012023U 
015475S 
01632058 
016261S 
012747S 
012641S 
016177Us 
007773Ue 
011255u>» 
013003U» 
013302U» 
014657Us 


007712U» 
016431U 

010076S» 
010616S» 
912205Ue 
013613U. 
014250S» 
014727U» 
015274Ue 
017162U» 
014325U 

014046U 

010015S 

015547S 
0154315 

010057U» 
010075S-e 
010410S» 
0121235 
012443Ue 
013612U. 
015217U» 
017524S» 
010014S» 


016202Ue 
010676U» 
011473uU» 
013014U. 
013330S» 
014700U" 


010002uU" 


010121» 
011043uU» 
012215» 
013701Ue 
014311uU°9 
014745Sr 
015330uUP 
017320S»* 


015553uU» 


014344U>» 
010120U» 
010440Ur 
012214uU" 
0124S50ur 
013702S° 
015245uU» 
017531U 

0143575uU 


SYSTEMS DATA LABELS 


016225U 

010713U> 
012645S>» 
O13046U> 
013454U. 
015324S» 


013344U>» 


010156S>» 
011670S. 
012604S>r 
013715U,r 
014334. 
015116U» 
015560U. 
017400U> 


0155565» 


014377U 

010126 
010516S-» 
O122221i» 
012474U> 
O1L13717U> 
015273U» 


010746U> 
012667» 
01304715» 
013473. 
015347S> 


013507U. 


010251U. 
011710U. 
012650U.e 
OL R723» 
014350S- 
01512NS>» 
015561S» 
017460U>e 


015562Ur 


010155S. 
010544Ur 
0122335» 
012501Ur 
013722U. 
015327Ue 


010763u" 
012675y» 
013232S° 
013556S» 
0153505» 


013514y 


0103125» 
011753u° 
012756uU» 
013736uU» 
014373 
015146» 
0166415» 
017523» 


0155655» 


019250u» 
019561s° 
N12314uU>» 
012513uU» 
013735ur 
01555l1u» 


011016U. 
012706U» 
013247U.+ 
013655uU» 
015401U> 


015376U» 


010340U» 
011764U>» 
0135027U.» 
0140135» 
014633S° 
015177Ue 
016741U.r 
017530U 


015571U 


010256U» 
010603U» 
012321U» 
012647U. 
014744S.e 
015552Se 


011933Ue 
012753S.e 
013262S° 
013764S-» 
017354S° 


016026U» 


010562S» 
012124S» 
013037Us 
014171» 
014714U. 
015220U» 
016760U» 


0103115» 
010615S.e 
012354U» 
012755Ur 
015117S» 
017401U. 


0111220U 
012775 
013270U 
014306S 
0173555 


016055U 


010604U | 


0121 74uU 
0133505 
014222U 
014725U 
015246U 
017147U 


010337uU 
O11042U 
0124205 
0133515 
015145U 
O017461U 








cce-p 


07717 
16554 
07716 
16154 
11440 
16006 
07722 
12622 
12613 


—127si 


12722 
00010 
17617 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
10300 
07700 
11327 
14234 


16444 


15442 
10674 
10744 
11014 


15402. 


13741 
13744 
10730 
11000 
10650 
10660 
15544 
16606 


16605 
14712 


AURIL 
AURILM 
AUSIL 
AUSILM 
AUTFCK 
AUTMON 
AUTMH 
AUTS 
AUTS1 
AUTS2 
AUTS3 
BO 
BooTs 
Bi 

B2 

BS 

Bu 

BS 

B6 

B7 

BB 
BEGIN 
BEQUZ0 
BITDAT 


BSAVE 


BSTR 
COMPR 
COMPRA 
COMPRC 
CON 
CONAD1 
CONAD2 
CONTO 
CONTF 
CONTH 
CONTI 
cc 
CCMADR 


Cpm19B 
COMFLG 


016333U 
00771 7U 
016133U 
007716U» 
011422U. 
007722U» 
016005U 
01624%2U. 
016274U.r 
016276S 


0162445 


016136U 
011423S» 
016007U 


0162435 
016275S 


NOT REFERENCED ~ 


010070Ur 


017617uU 


NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 
NOT REFERENCED 


010265S 


NOT REFERENCED 


011226U> 
014032U» 
017636U 
014154U> 
016340U.r 
01543358 
010666U 
010736U 
011006U 
015736S» 
013540U 
013546U> 
010726U. 
010776U. 
010627Us 
010646Ue 
015524S 
010673S» 
011475Ss 


011304uU» 
014033uU» 


014156uU» 
016351U° 


0157415» 


O13743U 

015657S» 
015662S°» 
010630S» 
015654S» 


010707Ur 
011514» 


NOT REFERENCED 


014703U 


O011424U> 


011357U> 
014105uU> 


014322U> 
016355U» 


0157484S- 


015660S 
0156635S 
010632U» 
015656S 


010743S> 
0115325 


011425S>- 


011361 
Olgilour 


O14324Ue 


016372U» 


015747Se 


0106335 


010757U» 


011450y 


016663Ur 016714Ur 017260Ue 017635U 


0154S5iye 015472U» 015511Ur 015521U 
016422Ur 016436U 


0157515 


0110135 011027Ur 011257Se 0113210 


9SE-P 


11662 
14625 


«14644 


14650 
14655 
14657 
148665 
14670 
14700 
14716 
14724 
14754 
11661 
16513 
16473 
16461 
16527 


16462 
16460 
16253 
16553 


13220 


13366 


12340 
12346 
07724 
12541 
07725 
12547 
15574 
15610 
15616 
15625 
156353 
00000 


COMICW 
COMIN 
COMINA 
COMINB 
COMINC 
COMIND 
COMINE 
COMINF 
COMING 
COMINH 
COMINI 
COMINJ 
COMTCW 
CHAL2 
CHA168 
CHA21 
CHA4Y 


CHA4O 
CHA816 
CHACHA 


CHAN 


. CHANAD 


CHANG 

CHANPR 
CHANPS 
CHNPRL 
CHNPRM 
CHNPSL 
CHNPSM 
CHSET 

CHSET1 
CHSET2 
CHSET3 
CHSETS 
CHTBL 


011651U 
010060Ur 
014 702Ue 
0163215 
016310S 
014636S 
014661U» 
016311S>» 
014637S 
014715Ue 
014713U 
014706U 
011653U 
016461U 
916460U 
015623U 
010006U» 
016074U>» 


015640U 
015614U. 
010017Ue 
010211U» 
011351U. 
012035Ue 
012610U> 
014513Ur 
015550U» 
017510U» 
013206Sr 
013357S-» 
012311U» 
012301U 
012340U 
007724U 
012346U 
007725U 
010022U» 
015600U 
015602U 
015604U 
015606U 
010101U» 


014626U" 
0162715» 


016522S | 


0163305 
014730U 


0113532U> 
016111U» 


015631U 
016331U 
010223uU? 
011444Ue 
012046U? 
013111uU° 
014534uUe 
015557uU» 
017605U 
013315S 
013704S 
012410uU 


015707U 


014722U 
0163015 


014055U.e 
016164U>» 


010235U> 
011504U, 
012177U> 
013150U-. 
014545uU>» 
015566U» 


014124U> 


0164621)» 


O10352uUs 
011553U» 
012210U. 
013241U> 
014563U» 
016366» 


014514y> 
016707. 


011221yu» 
011570u» 
012275ye 
013265» 
014654. 
017055u» 


014546U. 
017024U> 


011266U? 
011720Ue 
012316Ue 
013277» 
014671U> 
017067U. 


01464NG6Us 
017253UP 


011313U> 
01201 7U> 
012452Ue 
014 q40Ue 
015176U> 
017121Ue 


016057U 
017606U 


011340 
012026U 
01247615 
014312U 
015341U 
017362U 


010161Ur 010314Ur 010413Ur O1lO424yur 010430Ur 010521Ur 01N532u 


LSE-P 


11260 


11247 
11271 
11465 
11476 
10535 


10546 


11240 
11456 
112351 
11307 
11640 
12554 
12063 
11647 
10430 


10442 


16445 


CKOUT 
CKOUTD 
CKOUTT 
CKOUU 
CkOUV 
CKACTY 


CKACTS 


CKADR 
CKADRA 
CKADRR 
CKCDM 
CKER 
CKERR 
CKFORC 
CKNORM 
CKTER4 


CKTERS 
CKWwD 


010535Ur 
010737UP 
011416U.e 
012257U» 
0111735 

011242U> 
011176S-» 
011460U>» 
011426S» 
010460S» 
010543Us 
010461S° 
010510Se 
015666S» 
O11427U> 
011205uU» 
O11177Ue 
011644Ur 
012345 

012054Us 
01164%3U 

010352S»* 
010437U» 
010353S» 
010402Sr 
010273Ur 
010723U> 
011022Ue 
011310U» 
011551. 
012273uUs 
012615Ur 
013005uU» 
013140U» 
013441U> 
OL3767U» 
014572U» 
015073U» 
015210U. 
015264U> 
016072U. 
017165U. 
017573Ue 


010565uUe 
011000U" 
011456uU 
O12374uUe 


011246U.e 
011210S» 
011464Us 
O11431S 

0104635» 
015651S-» 
010464S» 
010525uU» 
015667S 

011430S-» 
011206Se 
011200S» 
011647U» 


012064" 


010355S° 
015646S-* 
010356S°» 
010417uU 9 
010643uU» 
010724uU° 
011035uU" 
OL1131i1ive 
012010uUP 
O12441uU 
012623uU. 
013075u 
013236uU" 
013503u» 
013770Ur 
014573uU" 
015074Ur 
015211» 
015265u» 
016105uU 
017166UPr 
O17574U 


010621U. 


O11003U» 


011461uU> 
012377U» 


015670S 
011211S> 
0156745 


0104715 
0156525 

010466S» 
010526S» 


015672S» 
011207S> 
011201U>» 
011657v 


012117 


0103635. 
0156475 
010360S»r 
0104205 
010644U> 
010750U» 
011124 e 
011322U> 
012011 
012442Ur 
012624U>» 
013076U» 
013237U» 
013561uU> 
014276U> 
014616U,r 
015077U. 
015233U> 
015310U» 
916107U> 
017351uU. 


010660U. 
011007U» 
011465.) 
012403. 


0112145 


010474SPr 


0104725» 
010527Ur 


0156735 
011212U> 
011202S- 


010366S» 


O010%64S» 
010421.» 
010651uU» 
010752U> 
011126» 
011441. 
012076U» 
012446U» 
012677U.r 
013100U» 
013426S.e 
013562vUr 
014277» 
014617U. 
015100U. 
015234Ue 
015311U> 
016445U.r 
017355? se 


010663uU° 
011165u» 
011702uU. 
012426y 


010502S» 


010475S» 
01905305» 


0112135 
011203» 


010374S» 


010367S» 
010422S» 
010652uU. 
010765u» 
011216» 
OL1L442Ue 
012077» 
012447 
012723ue 
O1slolyus 
013430S» 
013564uU» 
0144200 
014621» 
015166uU. 
015236vVe 
015314» 
016446uU» 
017411» 


010667U» 
O11240U» 
011742U. 


010505S-» 


010477Se 
010533uU» 


011204S» 


010377S»r 


010371Se 
010425U 
010700Ue 
010773U 
01121 7U» 
011476U> 
012266» 
012555U» 
012724U. 
013134» 
013432Se 
013565Ur 
N14421Ur 
014622Ur 
015167U» 
015237U» 
015315uU.» 
o16447U» 
017412Ue 


010730Ur 
011243. 
012160Ue 


010N523uU. 


010503Se 
010534S 


011302U 


010415U> 


010375S-» 
0104265 

010702U» 
010774Ue 
011260Ur 
011500U.r 
012267U» 
012556U» 
012732U» 
013135U.» 
O13434S> 
013605Ue 
014507U. 
014645U» 
015172U» 
015261U.» 
015590U» 
016450U» 
017465U> 


01N733U 
011247U 
012241 


01N52us 
019506S 


019416S 
01N400S 


010N715U 
0110201) 
011262 
011550U 
012272y 
012614 
012733U 
OLR1S7U 
013440U 
013606U 
014510 
014646 
015173U 
015262uU 
016070U 
016617U 
0174660 





8SE-F 


16451 


16454 
16617 
13326 


15753 
15520 
15507 


17605 
16402 


16555 
12571 
07711 
12542 
15425 


140351 
14003 
14034 


14111 
14075 
14145 
14103 
14153 
14053 
14122 
14055 
14124 
11544 
12667 
13014 
12775 
15471 
13241 
10302 


CKWDA 


CKwDB 
CKwWDZ 
CLADR 


CLBFAR 
CLCICR 
CLCWAR 


CLLR 
CLPIN 


CMAOR 


CMPINT © 


CMPL 
CMPLKO 
CMRJP 


CSDA 
CSDATA 
CSDB 


CSDB2 
Csoc 
CsDdC2 
CSD0D 
Csd02 
CSDOE 
CSDE2 
CSDF 
CSDF2 
DOCOM 
DATARQG 
DATQES 
DATREQ 
DD 
DEELA 
DELAY > 


O11524U» 
011642Ue 
016452U» 
012172Ue 
013425Ue 
012632S» 
013332U 
015766U 
015510S 
O010641U> 
015522U 
017616U 
011370Ue 
014575Ue 


011525. 
012013 
016453uU 
012173uU> 
013501U 
012642U» 


010721uU» 


013073U» 
016411» 


NOT REFERENCED 


007711U» 
012570U 

010043U» 
011146U> 
012155Ue 
014020U» 
0190055uU» 
014022Ue 


012550u 


012543uU 
011155uU- 
012336U" 
014021S° 
O14004UP 
014023S? 


NOT REFERENCED 


014060U 
014130U 
014043Ue 
014113U» 
014047U 
014116 


014052uU» 
014121uU 


NOT REFERENCED 
NOT REFERENCED 


011534U 
012633S» 
O12744S 
012741Se 
015450S 
013325U 
010212U» 
013112U» 
014550Ur 


0135055y | 


015062U 


011533» 
012014U» 


012203U>» 
012740SP 


010771U, 


013132U>» 
017344Ur 


012566U 
011164U, 
015446 
014162U>» 
014224U 
014024» 


0O14074U> 
014144U> 


011535Ue 
012101U.r 


012204uU» 


012750Ue 
O11137U> 
013436U.r 


017370U 


O11377U. 
0141635 
014025Sr 


014102u 
014152uU 


011537. 
O12102uU» 


016454y 


013214S» 


011367U» 


013602uUr 


011406.» 


014164 y» 


011563U. 
O14642Ue 


015234» 


011726U> 


014030U» 


011415uU.e 


014165S» 


011613U. 
014643U.r 


013257U» 


012127Ue 


014273U> 


012137U» 


014166U. 


011621U 
016451U 


013275U 


013455 


014423uU 


012146U 


0141675 


010224uUr 010236Ur 010305Ur 010333ur 011445Ur 011554Ur 01,1571 


013151u» 
014564uU» 


013266Ue 
014655U> 


013300U» 
014672U. 


014041U. 
015201. 


014314» 
015342U» 


014516Ue 
017363U» 


014535uU 
0175110 








6SE~P 


142U5 
14207 
14225 
1421] 
14171 
13733 
15413 


11624 


11627 


15445 
15264 
13276 
16000 
07721 
07715 
16150 
135052 
07765 
13057 
07766 
16465 
12651 
12757 
07720 
15567 
07704 
16124 
16371 
16455 
13210 
12706 
12574 
11215 
11652 
11106 
16466 
07706 
13041 
07712 
16602 


DERROD 
DERROP 
DERROR 
DERRC 
DERRQ 
DISC 
DISPOC 


-DSPLY 
— DSPLY4 


EE 
EFOV2 
EFOVS 
EFMON 
EFMH 
EFSIL 
EFSILM 
EIOQKH 
EIOKHA 
EIOKL 
EIOKLA 
EIGHT 


EIKH 


EIKL 
EIRH 
EIRT1 
EISIL 
EISILM 
END1 
ENDA 
ENTAD | 
ESDAT@ 
EXFEIC 
EXFFCK 
EXIT 
FONOIT 
FOUR 
FALADR 
FALSEI 
FAULTA 
FAULTI 


014176U» 
0141748Ur 
014172U» 
014206U» 
014157U 
013716U? 
010127Ue 
014720U. 
015743S» 
011546U 
011557uU 
015426S 
0132115» 
013217S* 
007721U.e 
015777U 
016127 
007715U» 
007765U» 
013051U 
007766Ue 
013056U 
015603U 
016267U» 
016256U* 
015366U 
007720Ue 
016123U 


~—6007704Ue 


016354S 
016421S 
013204Se 
012636S 
010053Ue 
011167Us 
011575Ue 
011125uU» 
015605U 
011715uU» 
013030U 
015374U 
010077S» 
012125S-e 


014210U 
014200U 
014202U 
0162475» 


013720U» 
010257uUr 


014732uUe 
015745u» 


013216S-» 
013227S 
016001U 


016132U 
012643U 
012751U 
016270S» 
0162375 
015370U 
016126U 


0133135» 


012575ur 
011170Se 
011622uU 
011127uU 


011716uU» 


010124uUs 
012220uU» 


016255S» 


013724U» 
011111U. 
015424U> 
015746S» 


013226S 


(016272uU, 


016240U>» 


013320U 
013042U 
OLL171U> 


O11751U> 


010157S» 
0130335» 


016302Se 


013725U. 
012175Ue 
015734U. 


0157505. 


0162735 
0162415 


0163155 


013727y 

012206Ue 012223Ur 013N36Ue 
015735S¢ 915737U* 015740S 
016120u» o17403Ue 017463U 


013737U 
015742U 


011172S» 011174 Ur 0111755 


011752u 


O1p254U5 0111105 H11667S* 011754Ue 0117630 


0130355» 


013202S* 013335U» 013352S*e 0137345 


098-7 


11523 
10Q22e 
10254 
10245 
10210 
10325 
16116 


13722 
13712 
07754 
17543 
07726 
07727 
12506 
12510 
10576 
14774 
14755 
16574 
16600 
16353 


16577 
16576 


16575 
16573 


13524 
07751 
16562 
16226 
16601 
10072 
10556 
10612 


FCODE 
FFOD 
FFEF 
FFEFA 
FFID 
FFRES 
FIND 


FLAKS 
FLATS 
FLRMSF 
FLRSMF 
FPRIL 
FPRIL1I 
FPRIM 
FPRIM1 
FUNC 
FUNPA 
FUNPGA 
HOBCP 
HOMIP 
HONINT 


HEFMIP 
HE IP 


HIBCP 
HICHAN 


HIEIS 
HIEISP 
HIFACE 
HIGRUP 
HIMIP 
Igl 
1010 
Toll 


OL1G204Se 
015570S» 


014215" 
0161175» 


NOT REFERENCED 


010167Se 
010176S» 
010205S» 
010163U 
010316U.r 
016025Sr 
016067S~» 
0137149Ue 
013676U 

017542U 

007754Ue 
012505VU 

012507U 

007726U 

007727U. 
010567Ue 
O14747S° 
010061U. 
012637U» 
014761U. 
010047Us 
012524Ue 
014332Ue 
016726U» 
017615U» 
014755U» 
012626U.r 
015254U» 
013362U» 
013205U» 
014403U> 
016642Ue 
007751U» 
013323U 

014354U» 
016206U 

013760U. 
010023Ue 
010030Ue 
010031U» 


010170uUr 
010177U» 
010206U» 
010164S-e 
010317S°» 
016027U» 
016075uU» 
013721U 


0173572U 


012506U 

010570S» 
015122S>» 
014740Ue 
017314uU°9 
015070U» 
O011777U° 
012545uU 
014416U» 
017146U9 
0176310U 

015066U» 
013203uU" 
015301U 

013416U» 
013220uU" 
014442uUe 
016645U. 
013230U 


016141S» 


014255uU» 
010073» 
010557Ue 
010613uU° 


014216U> 
017402S- 


0101715» 
010200S-» 
0102075 

010165U> 
010320Ur 
016034S» 
0161045Se 


010571U, 
015144) 
OL1474U1U> 
017345 
015205U, 
012066U> 
012565U> 
014502U.e 
017244 > 


015165U» 
015210U» 


014634 
013356U. 
014746U» 
017321uU 


016156S 


014271, 
0101314 
010610U 
011047yU 


014716S> 
017462S 


010172U> 
010201U. 


010166S 
0103215» 
016036U>r 
016112 


0105725» 
015150uU 


015230U 

012116U.> 
012600U. 
014614. 
017255» 


015305vU 
013360» 


013367U 
O14774U> 


014765U> 


O1y724Se 


010173Se 
010202S° 


0103225» 
016045se 


019573» 


012225 
013070» 
015156ue 
017304» 


013552u. 


014017uU» 
015727yU» 


015203u" 


01541715 


0101 74Us 
010203» 


010323U>» 
016047» 


010574S 


O01L12342Ue 
013177U.e 
015357Ue 
017544Ue 


014750uUr 


014253U» 
016170S» 


015256U. 


015420U» 


010175S 
010204S 


010324S 
016056S» 


012351U» 
013317U> 
015364Ue 
017551Ur 


015161U» 


014260Ue 
016200U» 


015303U 


015567U 


016060U 


012511U 
013551U 
016373U 
017612U 


015226U 


014351U 
016266U 





T9E-P 


10722 
10621 
10772 
10642 


11152 
11165 
11562 
11416 
11516 
12120 
12157 
12171 
12176 
12202 
12207 
11663 
11724 
11762 
11702 
11714 
11737 
11750 
12250 
12241 
12265 
12515 
12257 
12271 
12527 
12415 
12440 
12445 
12426 
10155 
10506 
10346 
10405 
10454 
10513 
16471 
10000 
12537 


T0ilq0U 


IO11A 


IQO11EF 
TO1LLIN 


Idle 
I01i2A 
1015 
IO1SA 
1014 
T0015 
IOLSA 
T0158 
I015¢C 
19015D 
TOQL5E 
T1016 
IQ16A 
10168 
T016D 
I016E 
IO16F 
10166 
1017 
IOL7A 
10178 
I017¢C 
To017D 
IOL7E 
IO17F 
1018 
IO18A 
10188 
1018C 
Io2 
105 
T0456 
T06 
T0789 
109 


IOSIZE 


IOTA 


TE INSR 


010631S» 
011041U» 
010635U» 
010623U» 


010032U» 
015665S 
010033U>» 
0156715 
010034Ue 
010037Us 
012213Ur 
012162U.e 
012164U> 
012167U» 
012166S 
010035Ue 
O11762U> 
011772U 
015676S 
0117048U6 
011741U> 
011 794Ue 
010040U> 
012370U» 
012243U» 


010634S-e 
015653S 

010636S» 
010624S» 


011133u» 
011363uU» 


011517uU» 
012121uU» 
015675S 
0121635 
012165S 
0121705 


011664U. 
016335U 


011705S» 
0156775 
011745S* 
012231U 
015700S 
012244S* 


NOT REFERENCED 


OL12344U9 
012261Ue 
OL12240Ue 
010041U> 
012430Ur 
012432Ue 
015706S 

010024Ur 
010025U» 
010026Ur 
010361U» 
010027U» 
N010467U» 
015576Ue 
007703U 

012525U 


012353uUr 
012262S» 
012254Ue 


012416UPr 


012431S» 
0124335" 


010134uU" 
0103507U" 
010347uU" 
010372uU» 
010455u» 
010500uU» 
0161535 


010754. 


010637U> 
010625» 


011303Ue 
011511uU» 


011632U 
012226U 


011724U> 


011706» 


011746U>» 
012371uU 


012245U. 
015703S 


012263U» 
012337U. 


012512U.r 


012515uU. 
012434U> 


010262U 
010344 U 
010404U 
010403uU> 
010512U 
010511U> 


010767) 


010640S» 011024Ue 011037U 
O1n626se 010647Ur 010655Ur 010704Ue 010717) 


011305U 


011512y 


011770U 


011707S- 011713uU 


0117475 
0122465 


0122645 
012425 
012517U 


012435S+ 012436uUr 0124375 


01n406U» 019452y 
O105l4aU» 010554y 


GOE-P 


16603 


13416 
13457 
13443 
13454 
13473 
13520 
13525 
13552 
13560 
13566 
13577 
13604 
13614 
13627 
13655 
13673 
13064 
13541 
11434 
17345 
17357 
17405 
17410 
17420 
17424 
17431 
17464 
17503 


17507 


173521 
17550 
17304 
16654 
16657 
07723 
16014 
161353 
16553 


TFAULT 


INOA 
INOAA 
INOAB 
INOAC 
INOAD 
INOAE 
INOAF 
INOAG 
INOAH 
INOAYT 
INOAS 
INOAK 
INOAL 
INQAM 
INOAZ 
INOAZZ 
INOBAS 
INOUTC 
INBUF 
INCOMA 
INCOMB 
INCOMC 
INCOMD 
INCOME 
INCOMF 
INCOMG 
INCOMH 
INCOM] 
INCOMJ 
INCOMP 
INCOMT 
INCOMV 
INCRTC 
INCRTR 
INMOH 
INMON 
IRJPOT 
IRJPAT 


010074S» 
010614S-e 
012232Se 
014005S-r 
015405Ue 
013363Se 
013570Ue 
013375uU» 
013422S 

0134175 

013404U> 
013372S» 
013361S» 
013373S° 
013412U. 
013414U.+ 
013374Sr 
013403S 

013406S 

0134215 

013407S 

013031U» 
010054U» 
011420Ue 
017315S-» 
017326Ue 
017330S 

017307U» 
017331U.r 
017333S°» 
017341U> 
017325S 

017334S°» 
0173355S» 
01664%3S.r 
017516U 

017212Us 
016635Ur 


0101355» 
0111345» 
012417SP 
014205S» 
015406U» 
013710S 

0133715 

013376S-r 


0154055 
013535775 
013706S» 
013410U" 
613413S 
013415S 
015400S 


013065U» 
0135342uU» 
0114215» 
0175265 
0173275 


017313S» 
017332S° 
017336U" 
0173425 


017547U 
017340S 
017522S» 


017214U 
017540U 


NOT REFERENCED 


0160135U 
007723Us 
012153U 
011673U 


016015U 


010310S- 
011364S> 
0125255» 
014212U» 
016114U>» 


013401Ue 


013756 
0134115 


013171 
013731uU 


011432U> 


017323U» 


017545U 
0173375 


017527U 


01035NS» 
0115205» 
012544S-r 
014213U> 
016116» 


013402S» 


0114535 


0173245 


010407S» 
011665S-e 
012576S» 
O14247Se 
0166365 


O13462uUr 


010456S» 
011776S-» 
013066S» 
014345S» 


013466U» 


01n515Se 
012065S-» 
013175S» 
014627Se 


013475uU 


0105605 
0121225 
0133435 
O1474H2S 


E9E-P 


16127 
16123 
16440 
07714 
16441 
15710 
11771 
07767 
11772 
10153 
00000 


16556 
00000 


14026 
00000 
13247 
00000 
00000 
16565 
16564 


13173 
16563 
16210 
13353 
16571 
16612 


IRJPEF 
IRJPEI 
IRJPF 
TRJUPFL 
IRJUPFM 
JMPRD 
JPEF 
JPEFL 
JPEFM 
KEEP 
KH 


KHMSK 
KL 


KL TURN 
KS 

KUR 

LOADIA 
LOAD2A 
LOBCP 
LOCHAN 


LOCKOB 
LOFACE 
LOGRUP 
LOKOS 
LOMIP 
L12MSK 


O12144U 
012135U 


NOT REFERENCED 


016440U 

007714U.r 
010100U.r 
011730U 

011771U 

007767U 

010136S°* 
012613U>» 
013102U» 
013240U> 
013530uU» 
013627Ue 
014211uU> 
O14427UPe 
014522Ue 
014562U» 
014620U» 
015072U»r 
015207Ue 
015263Ur 
017164U> 
017464Ue 
010661U.» 
012622U. 
013105.» 
014221U 

014170U 


016443U 
011135. 


010145y 

012617uU 
013110uU» 
013264uUP 
013560uUr 
013673U» 
014220uUPr 
014430Ue 
014526U» 
014565u 
014641U» 
015075u 
O15212ue 
015266uU» 
017357uU" 
017503uU» 
010731U» 
012702uU» 
013116uU" 


NOT REFERENCED © 


013215S 


NOT REFERENCED 
NOT REFERENCED 


012745Ur 
013314U? 
016174U» 
013032U» 
014365U.r 
016232U 

01304%1U. 
015134U» 
011113uU> 


016212S» 
013703uU"9 
016207U» 
013174uU» 
016142S° 


013540U 
016222S 
011650U 


011365» 


012651U>» 


013113U> 
013276U > 
013563U. 
013766U>» 
014275U> 
014431U> 
014533U> 
014571. 
O14644Ur 
015076. 
015215, 
015271uU» 
017405U. 
017507» 
011001U> 
012722U>» 
013122U. 


017525U 
01416100» 
016226U> 
013321U» 
016162S 


012126U. 


012654U,r 
013136U.r 
013437U» 
O13566\)» 
013771U» 
OL14301U> 
014503U. 
014536U» 
014576» 
01465NU>» 
015101» 
015252U>» 
015307t» 
017410Ue 
017512U> 
011241U» 
012726U> 
013133vU. 


014330. 
016235U>» 
013334uU 


015752y 


012715uU» 
013144 
013443 
013577» 
013774» 
014310U.e 
014506uUe 
014544yr 
O1ly601yr 
014653U.e 
015104» 
015235 
015312uU» 
017420uU. 
017572y 

011457» 
012757ue 
013141 


014362Ue 
017521u 


012731U. 
013155uU» 
013446Ue 
013604Ur 
014031U» 
014317U.» 
014512U» 
01454 7U» 
014602U» 
014665U. 
015165U> 
015240U» 
015313U» 
01 7424U.e 


012375uU» 


012762Us 
013147U» 


015121U. 


01301L0U> 
013161U> 
013520U» 
013607U» 
O14N3z4U» 
014417U» 
014515Ue 
014551U» 
014604U. 
014670Ue 
015171U. 
015243U» 
015316U>» 
017425U» 


016205U 


013023U» 
013152Ue 


015725Ue 


013074U 
013235vU 
013525) 
013614 
014037 
O14424y 
014517uU 
014555U 
014615 
014673 
0151 74U 
015260U 
015321U 
0174310 


013077U 
014214 


0145166S 


VIE~-P 


16457 
16456 
16616 
15043 
15063 
16570 
16567 
16566 
16572 
07713 
14257 
14271 
14275 
14506 
14310 
14317 
14342 
14245 
16173 
176354 
17642 
16561 


16557 


17622 
13764 
14002 
07756 
13757 
13766 
13771 
13775 
16114 
16604 


10666 
10756 
11006 
16626 
11654 


LI SMSK 
L6MSK 
LOMSK 
LASTO 
LASTIN 
LEFMIP 
LEIP 
LIBCP 
LIMIP 
MONINO 
MONINA 
MONINB 
MONINC 
MONIND 
MONINE 
MONINF 
MONINX 


-MONTIN 


MAKADR 
MNI1A 
MN1B 
MNADR 


MNAREA 


MNIO1 
MWA 
MWAED 
MWAID 
MWAIT 
MWB 
MwC 
MwD 
NGFIND 
NONJPD 


NEXT 
NEXTA 
NEXTB 
NTDSTD 
PEEK 


016157U» 
012022Ur 
013746Us 


016163uU 
012040U» 
014066UF 


NOT REFERENCED 
NOT REFERENCED 


015130Ur 
012734U 
013707U»s 
014326U» 
014341U 

0142545» 
014256S» 
014261Ue 
014272S 

014265Ur 
014267Ue 
007713Us 
010056U» 
016171U> 
017623U.r 
017627Us 
011145S»* 
O12154S» 
011141S-r 
011401S» 
012150S» 
015442S 


016220S 
013311» 
0162145 
015140uU" 


0143315» 
0145275 
014262S» 


014266S 
014270S» 
014304U 
014246U» 
016203U 
017624S» 
017630S 
011154S» 
012335S° 
011143S>» 
011403S» 
012152S° 


NOT REFERENCED 


013761S 
007756Ur 
014001U 


0137350U» 


016303S 
016314S>» 


013762U 
013777U9 
0165235 


NOT REFERENCED 
NOT REFERENCED 


015403U» 
015422Ue 
010662U» 
010732U» 
011002U.» 
011275Ur 
011615» 


015404U» 
015423uUe 
015655S 
0156615 
015664S 
013713U? 
011623uUP 


012051Ur 012061U> 
014136U 


013705U, O15123e 
016224S 
014333uU 


0142635Ur O14264uS 


014342U 
014337U 
017625U+s 017626S» 
0111635» 0113765» 
015435u 
011150S- 9111525, 


O112410Se 0114125, 
012531Se 0123335» 


014002U 


015407U- 015410)» 
0157325 _ 


014736U» 016143Se 
O11645i!e 011655 


016152uU 


011414S* 012136Se 


011161S* 011372Se 
012134Se 0121415» 
015430Ue 015432Ue 


015415U» 015416U.e 


017306U 


0121455 
0113745 


0121435 
0154375 


015421!) 








S9E-7 


15145 
16412 


16623 
16620 


16621 
16622 


14244 
14242 
14243 


16615 


15562 
07770 
15154 
15165 
15171 


15347 


15207 
15252 
15240 
15260 
15266 
15507 
15316 
15324 
15072 
15101 
15215 


PEST 
PIN 


PINS 
PLAC? 


PLAC3 
PLACY 


PLACS 
PLAC7 
PLACS 
PLACE 


PROKA 


PROKAA 
PR2345 


PRAAA 
PRAAB 


PRAAC 


PRAAD 
PRAAE 
PRAAF 
PRAAG 
PRAAH 
PRAAK 
PRAAL 


PRAALL 


PRAAM 
PRAAN 
PRADD 


0615113u 
011435U» 
013104U» 
013165» 
N91 53644U2 
O14G1L1ive 
014505Ue 
014652Ue 
015241U» 
016405S.e 
017406U» 
017641U 
013663U 
013353S» 
014173U 
013354S» 
013355S» 
016721U. 
014011S» 
014026S» 
012605S» 
015112uU» 
013201S.° 
014027S» 
007770U» 
015361U 
015043U» 
014775. 
015003U» 


015067S»r 
015255Se 
015005S-e 
0O14777S» 
015014S.e 
015000S» 
015015S» 
015001S» 
015010S. 
O14754S» 
015002S» 
015011S» 
915020Ue 


011436U» 
013106uU» 
013444 
013667uU» 
014302uU» 
014523uUP 
014666U? 
015242u.e 
016406S? 
017407U" 


013726uU" 


014010S»* 
013675u» 
017012S» 
014140uU» 
0141375» 
0127125» 
0151155» 
0135307uU» 
014067S» 
0153544U» 


015063uU? 
0147765 
015004S° 


0150715" 


0152575» 
015024Ur 
015006S 
015026S» 
0150075 
0150275» 
0150165 
0150225» 
015127S° 
0150175 
0150235» 
0150215 


011446U> 
013107. 
013445 
013772Ur 
014303 
014524U» 
014667Ue 
015267U. 
016407S» 
OL7H34Ue 


0137335U» 


014101Sr 
013700Se 
017013. 
014143S» 
014142) 

013020S» 
016634S» 
0133125» 
014072U> 
015365 


015336U 

015012ur 
0151625» 
015304S> 
015025S» 
015037S» 
0150450U> 


015030S 
0153025 


0150315 


012620U» 
013126U.r 
013456Ur 
013773U> 
O14425U 
014577» 
014734U» 
015270U> 
016410S» 
017440U. 


013751Ue 


014177U 
014006Se 
017305S» 
014175U 


0135054U> 
016712S-e 


013423Se 
014632S» 


0150135» 
015164S> 


015306S 
0150346U. 


01505n0Ss 
0150425» 


012621. 
013142uUe 
913610Ue 
014035 
O14u426uUe 
O14600uU» 
015102uU» 
015317uU.s 
016623uU» 
O17444 >» 


013754S» 


014064» 
017515. 


0140125» 
017005S» 
O135424sS» 
0147115» 


015032u» 
015204S¢ 


015036S» 


015061uUe 


012727» 
N13143U.r 
NL3S611U 
014036U° 
014432Ue 
no14605ue 
015103uU» 
015320» 
N17360U» 
017632S» 


914007Se 


014134U» 
0175205 


014151S» 
017161U» 
O1L3747Ue 
014717U» 


015033S~» 
9015206S° 


9015046U» 


015062S 


012730U» 
013145U>» 
O13A32Ue 
014N42Us 
O14433Ur 
014606U» 
015213Ur 
016403S» 
017%361U. 
0176335» 


014u070Ue 


014232Se 


014201U> 
017172U 
013750Se 
014731U 


015044U. 
015227S» 


0150475 


9131030 
013146U 
0136561! 
0141048 
014504) 
014651U 
015214 
0164045 


017364 


017640U 
0140735 
0167205 


0147435 
013753U 


0150455 


015231S 














99E-P 


15354 
O7771 
15161 
15205 


15226 
15254 
15503 


15066 
15641 
12505 
12507 
10013 
13023 
15555 


15564 
15546 


10047 
15767 


10270 
10264 
13255 
135364 
16613 
16005 
15777 
15566 


PRBAD 
PRBADD 
PRBBA 
PRBBB 


PRBBC 
PRBBD 
PRBBF 


PRB8G 
PRESTR 
PRIOK 
PRIBAD 
PSTOP 
QACK 
RCORDO 


RCOROF 
RCORDI 


REES 
REICR 


REQA 
REQACK 
RIGA 
RIIC 
RIL 
RJPOUT 
RJPEF 
RJPET1 


007771Ue 
015353uU 
014751S° 
014762S-» 


014752S» 
014753S» 
014757S» 


014760S» 
015615Ue 


012465 


012456U 


015345uUr 


014756S» 
014766S° 


0147635» 
0147675» 
014770S» 


014764S-» 
015624U» 


NOT REFERENCED) 


016265S 

010114U» 
012672U» 
013120U? 
013464U? 
013634Us 
014050Ve 
014315U. 
014663Ue 
016700Ue 
017016U>» 
017422U» 
017514U» 
010116vU? 
015572Ur 
010112U> 
012350U? 
010071U 

010160U» 
011666U> 
015634S-. 
010277U 

010213Us 
013222Ue 
013711U 

013260Ur 
011162U. 
011153uU° 
011144U> 


010230u» 


012713uU"9 
013124uU» 
01347Q0U» 
013640uU» 
014061U" 
014320U» 
014675uU» 
016711U° 
017032uU» 
017427U»9 
017543U 

010242uU? 
016135 

010216uU» 
012510U» 


010313uU» 


011725uUr 


015776U 


010225u" 
0135223S° 


0135554Ur 
011413uU?r 
011404U 
011375uU 


015360) 


015124S 
015051 


015125S> 
015126S, 
015055. 


015133Sr 
015632U 


010233U>» 
0127170. 
013130U> 
013477U» 
013647U. 
014076U.r 
014435U> 
O14704U> 
016716U> 
017060U>» 
017432Ur 


010245uU> 


010221U> 
015554U> 


010412U,r 
012156Ur 
010237U. 
013224U > 


016360U 
012334 


01513515 
015052uU» 


015136S 
O15140S 
015056U. 


0151575 


01033556 
012772 
013153u> 
013505uU» 
013661Ur 
014107U» 
014520Ue 
014710U.r 
016724Ue 
017076U> 
017436? 


011761U. 


010350U» 
016125u 


010520vU.e 
012254U> 


Olo275Ur 


0132255 


0150535» 


015057S>» 


O1o60lyU» 
013000u» 
013157uU.e 
013516u» 
013665 
Olyiis4ye 
014540 
015355vue 
016745y» 
017112y» 
017442Ue 


0135244 ye 
010436. 


019563u» 
O12421Ur 


O1g30l1y 


015054Se 


015060S» 


010727U.» 
013021U» 
013163Ue 
013522U» 
013671U.e 
014117U. 
014552uU» 
015563U. 
016771U? 
017130Ue 
017446U? 


015252U» 
010542uU» 


010620Ur 
015610S» 


015135S» 


0151325» 


011723U.r 
013025Us 
013167U» 
013600U» 
013674Ue 
0141 31Ue 
014567U. 
016131U.s 
017003U.e 
017144U>» 
017501U. 


013273Ur 
010577U» 


011136Ue 
015617S» 


0151415 


0151435 


0126648U 
013114 
013460 
0136350U 
O14g44ay 
014146U 
014610U 
016482U 
017010 
017366U 
0175048U 


013305U 
010777U 


011366 
015625S 


LOE-F 


160135 
11774 
07753 
17612 
17164 
07757 
17216 
07772 
17547 
17210 
07762 
17204 
07764 
16701 
16744 
16772 
17061 
17217 
07773 
17235 
17076 
17220 
17112 
17221 
17130 
17222 
17144 
17225 
17224 
07763 
17615 
07755 
17206 
17202 
17236 
172357 
17240 
17170 
13045 
07752 
13044 
17175 
15540 


RUPIN 
RLJPEI 
RSMF OK 
RSMFA 
RSMF AA 
RSMF AB 
RSMFB 
RSMFBA 
RSMFKO 
RTCOK 
RTCOM 
RTCOVF 
RTCOVK 
RTCA 
RTCB 
RTCC 
RTCCB 
RTCCBB 
RTCCC 
RTCCCC 
RTCCH 
RTCCDD 
RYCCE 
RTCCEE 
RTCCF 
RTCCFF 
RTCCG 
RTCCGG 
RTCEN 
RTCMOT 
RTCMA 
RTCMB 
RYCNOT 
RTCREM 
RTCwoOl 
RTCwDOC 
RTCWDD 
RTCwIC 
SOoORP 
SOORP 
SORP 
SECSTH 
SETPR 


NOT REFERENCED 


010036U» 
017546U 
007772U9 
016647U» 
017215U 
007757U» 
017611U 
007753Ue 
007762Ue 
017207U 
007764U» 
017203U 
017204U 
017206U 
017210U 
017217U 
017043U 
017046S» 
017044U 
017220U 
017062U 
017221U 
017100U 
017222U 
017114U 
017223U 
017132U 
017074U> 
017205U 
007755Ur 
017614U 
007763U? 
017020U 
017231U 
017035U 
017036U 
017216U 
007752uUe 
013044U 
012652U» 
016743Us 
015105U,r 


011775uU» 


017562U 
016650S 


017153uU 


017452uU 
016750uU 


016664U 


017064S» 


017110U 
017563U 
016731U 


0126305» 


012653uU» 
017027uU» 
015175u 


012055uU 


017102S, 


017126U>» 


012634S» 


012760U>» 
017201U> 
015216U >» 


017116S> 


017142U» 


O12736S» 


012761U 
0172751)» 
015244» 


N17134S» 


017234y 


0127425 


017276U 
015272u» 


017235U 


015326Ue 015352U 


89E~-P 


17242 
14226 
10113 
10115 
10111 
13116 
13155 
16631 
07761 
17212 
07760 
17214 
17550 
17255 
17572 
11117 


16021 
11051 
16374 
163547 
16607 
16614 
16610 
16611 
17241 
15535 
15525 
10020 
15474 
16627 
16356 


12377 
12410 
12373 
16420 


13553 
16463 


SETSPL 
SFK 
SKOICK 
SKFICK 
SKIICK 
SKINT 
SKINT2 
SPECTA 
SPI12A 
SPI12B8 
SPI13C 
SPI130 
SPRI 
SPRIO 
SPRIA 
SRCH 


SRCHCM 
SRCHM 
SRSMAL 
3S 
STOPA 
STOPAA 
STOPB 
STOPC 
STOPD 
STAL 
STALAC 
START 
STCWAR 
STDEST 
STINK 


STRINA 
STRINB 
STRINT 
STRMEM 


SURCH 
SXTEEN 


016632U»s 
014063U» 
010105U.s 
010107uU» 
010103Ue 
016252S» 
016306S-» 
010065U» 
017211U 

007761U» 
017213U 

007760U» 
017535U» 
017150U 

0166515 

011053S» 
011071Ue 
011131U 

N011261U» 
010706Ur 
010051U» 
016337S 

013657U 

016343U. 
017006U 

016732Ur 
017001U 

015530S» 
010247Us 
010012U.s 
010154U» 
013712U 

011671U» 
012455U» 
016727U» 
011676S~» 
011674Se 
012463S-» 
011701U» 


011522U» 


017254U» 
014133Ue 
010106S 
010110S 
010104S 
016262U» 
016324U» 
015322U 


017267U 


017266U 


017613U 
011055Sr 
0110735» 
011477U 
010756uUr 
016401UF 
016722U 
016751U» 


015532S» 
O10411U" 


010052U 


015506U 


011727U" 
012606U" 
017034uU» 
011733S" 
011700S° 
012466S" 
011736uU" 


014640U" 


NOT REFERENCED 


015577 


017536U 
014233U 


0162655 
0163255 


011057» 
011075S. 


011026U. 
017245VU 


017014U 


015534S- 
015545U 


012130» 
012721uU> 


O017151Ue 


012304S>» 
011731S- 
012472S 

012307U.r 


016437U 


0110615» 


0110635» 


011064U» 


011066S>» 


0310705 


011076U+ 0111005» 911102Se 011103U>e 011112U 


011107U 


015543U 


012235U» 
013603» 
017256U>» 
012461S>- 
011735S° 


012313» 


012300uU» 
014274» 
017371» 
012470S» 
012302S» 


012414» 


012343uUr 
015343» 
017451» 
015701S» 
012306S» 


012464U» 


012352Ue 
016352U» 
017552U 
015704S 
0123125» 


012473U> 


012422u 
016655U 


0124575 


015705S 


69E-7 


13133 
13074 
130635 
135102 
13141 
00000 
00000 
10564 
10101 
10161 
10514 
10413 
10521 
14240 
15462 
15447 


13010 
12702 
15723 
14602 
14503 
14506 
14515 
14522 
14526 
14440 
14373 
14533 
14615 


14615 


14544 
14547 
14555 
14562 
14571 
14576 
07775 
14401 
14424 


TOOUT2 
TOOUTS 
TOFIV 
TOINS 
TOINS? 
TAKILE 
TAK2E 
TBL10 
TBLIOL 
TBLIO2 
TBLIOS 
TBLIO6 
TBLIO9 
TOCS 
TERM 
TERMAL 


TESTAC 
TESTAK 
TESTIT 
TIMO 
TIMA 
TIMB 
TIMC 
TIMD 
TIME 
TIMEA 
TIMET 
TIMF 
TIMG 
TIMGG 
TIMH 
TIMI 
TIMK 
TIML 
TIMM 
TIMN 
TTTTTITTTO. 
TwOV 
TWOVA 


0162465» 
016245S» 


016500S 
016277S 


NOT REFERENCED 


016256U» 
016260Sr 


0162575» 
0163175 


NOT REFERENCED 
NOT REFERENCED 


010602U. 
010117U» 
010246U» 
010336Ur 
015645S 

015650S 

014053S»r 
015455S.e 
010050» 
012577Us 
013550U» 
014574U.e 
017450Ue 
016304Us 
012710U» 
015712S* 
014456S>» 
014443U>» 
014447U>» 
014460U>» 
014445S 

014455S 

014352Se 


015644S 
0156415 
015642S 
015643S 


014100Us 
015457S» 
010261U» 
012616uUr 
014217U» 
014623Us 
017506U» 
016305S 

013016uU" 
015713U? 
0144575 

01444u4S 

014450S-» 
014461S°» 


0143610U» 


NOT REFERENCED 


014462S»e 
014451S» 
014542U> 
014470U> 
014473U.s 
014472S 
014475S» 
014452S 
014446S 


014465S 
014466U» 
014554U» 
0144715 
014474S» 


014500S 


NOT REFERENCED 


014353S» 
014406U? 


014357uU» 
014407S 


016315U» 


0141225, 
0154615» 
010451U, 
012725U> 
014300U.r 
014647. 
0175710 


016250U>» 
015715S» 


014453U.e 
014463U» 


014363S°» 
0144675 


014624) 


014476U> 


014364S» 


0163165 


014150 
015470 
010517U>» 
013067U» 
014415vU. 
015155U 


0162515 
015716Ur 


O14454s 
014464uS 


014372U» 


0144775 


019564 Ue 
013176ur 
Olyse2yr 
015473uU>» 


0157205» 


014612y 


O1L437OUr 014437y 


010617Ur 
013316U. 
014501U. 
017160U.? 


015721U» 


O11331U> 
013442Ue 
014511Ue 
017243U>» 


015731U 


031521U 
013524uU 


014525U | 


017343u 


OLE-P 


14430 
14417 
16464 
16472 
16455 


16157 
15752 
13252 
13110 
13147 


(12715 


12521 
12540 
07730 
00000 


126435 


12751 
07710 
12060 
77777 


TwOVB 
TWwOVC 
TWELVE 
TWLV18 
Ul2MSK 


UPRAM 
USEIT 
VEP 
VEROUT 
VROUT2 
wACKQ 
WAITCK 
WTEINT 
WTINTL 
XX 


ZAAA 
ZAAB 
ZROL 
ZROMON 


222222222 


O014410U» 


~—60144ORUe 


O11344Ur 
011324U> 
010102U» 
011104U. 
012427Ue 
O14773Ue 
010016U> 
015730U 

013212S 

016307Us 
016253U» 
0163275 

010042U.e 
007730U 

012537U 

010111U> 
010226Ur 
010326U» 
010540U» 
010642U» 
OL1220Us 
0114276Ue 
011443U> 
012171U. 
01L12401Ue 
015770U. 
012627S 

012735S 

012057U 

007710U? 


014411Se 
0144055 
015601U 
011574Ue 
010162uU. 
011166U» 
0135221uU9 
015733uUr 
016172U 


016312S» 
016254S» 


012522uU» 


010113uU° 
0102310U» 
010331U» 
010541uU 
010645U» 
O011224UP 
011301U? 
011452u» 
012176U? 
0124 06U" 
016121U» 


012002uU" 


NOT REFERENCED 


O14412U 


011602U, 
010315» 
0114170U» 
013366» 
016234U>» 


0163265 
0162645 


012532Ur 


010115)» 
010232Ur 
010334U>» 
010546. 
010650U> 
011231 
011307U>» 
011503uU>» 
012202U» 
O12440Ur 
016435U, 


012031U> 


0144135» 


O147121)» 
Ologluur 
O11L703U> 
O014016U>» 
016646U» 


012533Ur 


Olg210U» 
010234Ur 
010433U> 


010547U.e 


010653U > 
011253uU. 
011412 
011507U>» 
012207Ur 
012444 
017634U» 


O1204>U» 


0144 15S 


016140S- 
019427 Ue 
011743» 
014160. 
017322uU» 


012540y 


Oln2isur 
O1p24u0ue 
010434 > 
019550u" 
010722ue 
011235ye 
011316. 
0117146 
012265u» 
012445U» 
017637uU» 


012062y» 


016145S 
010522U» 
012161U.» 
014257Ur 
017622U 


010217uU. 
010243U» 
O10442Ue 
010575uUe 
010725uU» 
011265Ur 
011434U» 
011717U» 
012270Us 
0124510. 
017642U 


012071uU» 


019566Ur 
012242Ue 
O14402Ue 


01N220Us 
010244Ur 
010443Ue 
010576U» 
011120U> 
011271U» 
011437U» 
011750U» 
012271U» 
015520U» 


012113 


01N622)1) 
017>260 
O1444alty 


010222U 
01N325U 
010444U 
01N600U 
011215vU 
011273uU 
011440U 
011755y 
012274U 
015724U 


Vererry RAND 








